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Tutti i diritti di riproduzione e traduzione di testi 
articoli progetti illustrazioni, disegni, circuiti, 
stampali listati dei programmi, lotograhe ecc 
sono riservati a termini di legge. Progetti, circuiti 
e programmi pubblicati su RadioELETTRONICA & 
COMPUTER possono essere realizzati per scopi 
privati, scientifici e dilettantistici, ma ne sono 
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La realizzazione degli schemi del progetti c dei 
programmi proposti da RadioELETTRONICA & 
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editrice, che declinano ogni responsabilità anche 
nei confronti dei contenuti delle inserzioni a paga¬ 
mento I manoscritti i disegni, le foto, anche se 
non pubblicati non si restituiscono 


RadioELETTRONICA & COMPUTER è titolare in 
esclusiva per I Italia dei testi e dei progetti di 
Radio Plans e Electronique Pratique, periodici del 
gruppo Societé Panslenne d Edltion 


DIESEL O BENZINA? 


Perché arrovellarsi con questo dubbio? Se 
dovete acquistare un auto, nuova o usata che 
sia. fornite alcuni dati al Commodore, e la 
risposta... (pagina 27) 




GESTIONE 

MAGAZZINO_ 

Tante bottiglie di Barolo, tante di Soave e di 
Valpolicella. Per cominciare potreste gestirci 
la cantina) pagina 66) Ma poi, se il vostro 
problema è un magazzino di alimentari, o di 
scarpe, o di... 






BUDGET FAMILIARE 


PS£5WS5i c MEDia 

SCOSTAMENTO ASS. 


VARIABILI 
STONI MEO 1 A 
AMENTO ASS. 


TOT FILE SPI. SE 
PREVISIONE MEDIA 
SCOSTAMENTO ASS. 


TOTALE ENTRATE 
SURPLUS O DEFICIT 


LA 1I)A SCELTA ■ 

AVANTI ■ INDIETRO 

■U DIRETTO m*m RITORNO AL MENU 


CHI DI TESTA 
FERISCE..._ 

l n simpatico e nuovo videogame per Coni 
inodore 64 e patiti della tastiera, (pagina 62) 


ATTACCO ATOMICO 


Intelligenza e capacità deduttive sono indi¬ 
spensabili in questo gioco per Spectrum, in 
verità per nulla facile (pagina!9) 


Fa i conti, ma anche t grafici, questo spetta¬ 
coloso programma per Commodore 64. E 
forse vi permetterà di risparmiare. Cosi, que¬ 
st'estate.. (pagina 45) 
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Insiemistica con Spectrum. Quali sono gli elementi che formano 


l'insieme A? Cosa accadrà sommando questo insieme con l'insieme B? Che cosa sono 
l'intersezione, la differenza simmetrica e il prodotto cartesiano? Con questo programma, 
senza fare fatica... 
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entrate e uscite, affìtto e bollette, crediti e debiti... E' possibile fare davvero ordine nel 
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sono di secondo grado, con i loro graziosi simboletti riescono a esasperare lo studente piu 
sgobbone. A meno che... 
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Printer plotter 1520. Questa volta il fantastico 1520 si cimenta con due 

problemi grafici di natura matematica: traccia perimetri, anche molto complessi e irregolari, 
di poligoni e grafici di equazioni di secondo grado, fi computer, intanto, fa i conti del caso... 


19 


Attacco atomico con Spectrum. Bersagli sono gli atomi, proiettili 
alcune infinitesimali particelle; il giocatore/bombardiere non ha però intenti bellici, anzi è un 
pacifico amatore di giochi di deduzione: il suo scopo è capire, studiando da buono stratega 
rimbalzi e traiettorie, cosa c'è dentro la scatola nera... 


31 Slot machine per VIC 20. Vincere o perdere, in pochi secondi, migliaia 

di dollari un’emozione insuperabile che appartiene al mondo esclusivo delle più lussuose 
sale da gioco... Ma se di gioco si tratta, perché non giocare fino in fondo? Anche in casa 
propria è possibile sfidare la fortuna... 
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Giochi per Commodore 64. Rispetto al povero conti Ugolino, che 
aveva solo un cranio da rosicchiare, l’omino di questo videogame è ben più fortunato, 
perché di crani ne ha a disposizione venti... 


Perche aspettare di fare un viaggio fino a Las 
Vegas per poter giocare alla slot machine? 
Con questo programmino, il vostro VIC 20... 

(pagina 31 ► 


56 Grafica con VIC 20. Con questo programma potete realizzare la rappre- 

sontazione grafica di funzioni a due o a tre dimensioni, e non solo sul video del computer, ma 
anche su carta. 
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Gestione magazzino con Commodore 64. Un programma da 

copiare su dischetto per l'archivio e il movimento delle scorte, utilizzabile per gestire 
magazzini di qualsiasi tipo. Potente e versatile... 

71 Utility per Commodore 64. Per gli amanti del Basic, per chi copia i 

listati dalle riviste, arriva COMMODORESCUE, per resettare il vòstro compiila senza 
spegnerlo... 
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Interfaccia per Spectrum. Per gli appassionati di elettronica il compii 
ter è una fonte inesauribile di piaceri; già comprenderne il funzionamento e impararne il 
linguaggio è un'avventura che non finisce di stupire, se poi diventa possibile metterà 
addirittura le mani... 


Rubriche Novità, pagina 6 - Abbonamenti, pagina 58 - Arretrali, pagina 60 - Vorrei 
sapere, vorrei proporre, pagina 74 - Annunci, pagina 76 - Servizio circuiti stampati, kit e 
programmi su cassetta, pagina 81. 


INSIEMISTICA 


Tutto quello che avreste voluto sapere e che 
con il vostro Spectrum finalmente scoprirete. 
Facilmente, con calma e in poco tempo (pa¬ 
gina 34) 
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Chi, Cosa, Come, Quando... 


Qui sotto, 
alcune immagini 
dello spettacolo 
"Sguardo 
sull' Universo" 
della 

Image Stream. 


Sorrida, prego 

Si chiama Sguardo sull’univer¬ 
so il programma in multivisione, 
proiettato su uno schermo di set¬ 
tanta metri quadri, che mostra 
questi magnifici e ghignanti be¬ 
stioni. È l'attrazione della nuova 
sezione aerospaziale del museo 
delle scienze e dell’industria della 
California, che ha sede a Los An¬ 
geles. 

Scritto da Ray Bradbury e nar¬ 
rato da James Whitmore, l’ecce¬ 
zionale programma è stato realiz¬ 
zato da Image Stream, dura dodi¬ 
ci minuti e funziona in modo del 
tutto automatizzato, grazie a un 
impianto dotato del sistema Elec- 
trosonic Autopresent serie 4000. 

Per presentare le quasi duemi¬ 
la diapositive sono necessari ven¬ 
tuno proiettori e un impianto au¬ 
dio multicanale da 300 Watt; gli 
organizzatori, molto soddisfatti 
del risultato, prevedono che oltre 
cinque milioni di persone vorran¬ 
no vedere Sguardo sull'universo 
durante il suo primo anno di 
proiezione 


Il nuovo agente 

dell'Ffìl 

Identix 


operazione tatto 

Adesso negli edifici della FBI 
non ci si può più intrufolare clan¬ 
destinamente: ci vuole il dito, e 
non per suonare il campanello o 
per chiamare l’ascensore. Biso- 


Più sottile 
non si 


È l’orologio più sottile del 
mondo (4,0 mm) e l’unico ad ave¬ 
re cassa c braccialetto integrati e 
quadrante inclinato. 

Casio FS-10, questo il suo no¬ 
me, nasce da una nuova tecnica, 
il "module-less packaging", gra¬ 
zie a cui si presenta sul mercato 
come l’orologio che ha sorpassa¬ 
to anche le prestazioni fino a ora 
proprie dei soli orologi analogici. 

Il module-less packaging è 
una tecnica di stampaggio ibrida, 
con la quale si possono usare con¬ 
temporaneamente due diversi 
materiali, uno per la cassa e uno 
per il braccialetto, con la garan¬ 
zia del minimo spessore. 

Frutto dell’applicazione di 
principi ergonomici e dotato di 
un LSI di comando a bassa poten¬ 
za e di un nuovissimo pictointer- 
ruttore, FS-10 ha margini di er¬ 
rore molto contenuti: ±15 secon¬ 
di al mese. 

Importato dalla Lorenz (via 
Montenapoleone 12,20121 Mila¬ 
no, telefono 02 702384), il sotti¬ 
lissimo della Casio è in vendita a 
60 mila lire. 


gna, semplicemente, appoggiarlo 
nell’apposita scanalatura di cui è 
dotato Identix, un computer/in¬ 
quisitore che verifica le impronte 
digitali. 

E stato prodotto in California, 
a Palo Alto, dalla Identix Incor- 
porated, e installato con tre ter¬ 
minali a Washington, al quartier 
generale dell’FBI. La sua presen¬ 
za impedirà l’accesso ai non auto¬ 
rizzati nelle aree operative top 
secret; sono una cinquantina i 
funzionari che sono stati "presen¬ 
tati" al fingerprint security System 
della Identix e che possono quin¬ 
di accedere 24 ore su 24 agli edifi¬ 
ci protetti. 


Il computer 
con la sciarpa 

L’ecletticità e la praticità sono 
senz’altro le due doti fondamen¬ 
tali del Personal Computer 
MZ-800, uno strumento di vali¬ 
do aiuto tanto per il lavoro quan¬ 
to per il tempo libero. 

Fornito di un sistema operati¬ 
vo proprio, il Basic SHARP, e, in 
opzione, del P-CP/M per floppy 
disk, l’MZ-800 consente di uti¬ 
lizzare una gamma vastissima di 
programmi, tanto su nastro, me- 
morizzabili sul registratore a cas¬ 
sette incorporato, quanto su di¬ 
schetto. 

Tra le periferiche opzionali, 
segnaliamo un’unità Quick Disk 
ad accesso sequenziale, per una 
più rapida elaborazione dei dati, 
e i video a colori o monocromati¬ 
ci, da usare in alternativa al nor¬ 
male televisore. 

Una stampante plotter a 4 co¬ 
lori consente di stampare testi e 
grafici (le possibilità grafiche 
dell’MZ-800 sono davvero note¬ 
voli) e un generatore di suoni 
programmabile con 6 ottave, uni¬ 
to a due joystick, assicura anima¬ 
ti e originali video games. 


Lo Sharp M2-820 
è un prsonal utilizzabile 
per svariati scopi: 
contabili, finanziari, 
educativi e di svago. 
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ics mercato 

Dal Giappone, e più precisa¬ 
mente dalla Tokai, arriva il pri¬ 
mo wordprocessor in versione 
MSX, specificamente creato, 
cioè, per il più giovane mercato 
dei microcomputer. Molto prati¬ 
co e semplice da usare, qui sopra 
ne vediamo una schermata, il 
nuovo software, sviluppato per 
computer con memoria RAM da 
32 a 64 Kbytes, è accompagnato 
da un agile manuale di 50 pagine 
che ne dedica almeno una a ogni 
comando. 

Multhrisione 


Si chiama ES4024/3E Multivi- 
sion Computer e permette la pro¬ 
duzione di sofisticati programmi 
di audiovisione, così come la re¬ 
gia audiovisiva di conferenze e 
seminari, anche se, naturalmen¬ 
te, può essere utilizzato per molti 
altri scopi: la Electrosonic, che lo 
produce, dispone per esempio di 
una gamma completa di pro¬ 
grammi per la gestione azienda¬ 
le. È il sistema professionale di 
multi visione piu avanzato e fles¬ 
sibile: può controllare individual¬ 
mente, ogni 0,05 secondi, 24 
proiettori e 96 effetti ausiliari su 
una sola pista di nastro magneti¬ 
co. Ogni proiettore può dissolve¬ 
re a qualsiasi velocità fino a 99,9 
secondi in incrementi di 0,1 se¬ 
condi, arrestare la dissolvenza e 
lampeggiare in qualsiasi ciclo di 
tempo tra 0, 1 e 99.9 secondi con 
10 diversi rapporti tra tempo di 
accensione e spegnimento; tutti 
questi effetti, inoltre, possono 
venire usati in combinazione. 

Tutto questo grazie al linguag- 
gio di programmazione 
ESCLAMP, che viene fornito su 
dischetto copiabile per uso del¬ 
l'utente e che abilita il Multivi- 
sion Computer a svolgere anche 
molte altre funzioni: l’accensione 
e lo spegnimento dei proiettori, 
la verifica dell'azzeramento mec¬ 
canico, la segnalazione di lampa¬ 
de bruciate, l’attivazione dell’ot¬ 
turatore di cambio istantaneo e il 


corretto posizionamento dei cari¬ 
catori anche dopo interruzioni di 
corrente. 

Il sistema base comprende: 
computer Apple //e, unità disco 
con doppio controller, interfac¬ 
cia di comunicazione ES4028, in¬ 
terfaccia multiplex ES4057. mo¬ 
nitor da 12 pollici a fosfori gialli, 
cavo di controllo, licenza d'uso 
del programma ESCLAMP III 
fornito su dischetto copiabile. 

È scesa 
una vichinga 

Compatibile con tutti i micro- 
computer (interfacciati con QIC 
102), giunge in Italia l’ultima pe¬ 
riferica prodotta dalla nota socie¬ 
tà norvegese Tandberg Data: lo 
streamer Mini QlC-Store. 

Le prestazioni che lo streamer 
offre all'utente, con elevati indici 
di sicurezza, sono: back-up ve¬ 
loce di Winchester (fino a 66 Mby¬ 
te per cassetta), registrazione di 
archivi, trasferimento di dati, ca¬ 
ricamento di programmi II prez¬ 
zo dello streamer completo, già 
formattato, è di tre milioni Iva. 




La stampante 
personal 
iDP 560 della 
Citizen . 


A sinistra, 
lo streamer 
Mini QlC-Store 
della 

Tandberg Data. 


L'economica 


rossonera 


Stampa 65 caratteri al secondo 
su 40 colonne e utilizza carta c 
nastro già in dotazione in qualsia¬ 
si ufficio, e quindi reperibili in 
qualsiasi cartoleria: rotoli da cal¬ 
colatrice (69 mm) e nastri a due 
colori (rosso e nero) di tipo datti¬ 
lografico. Prodotta dalla Citizen 
e distribuita dalla torinese Fan- 
ton, la stampante personal iDP 
560. con stampa a matrice di pun¬ 
ti. anche a indirizzamento grafi¬ 
co, è disponibile in due versioni: 
con interfaccia seriale RS - 232 
(320 mila lire più Iva) oppure con 
interfaccia parallela Centronics o 
con attacco per Commodore 64 e 
Vie 20 (270 mila lire più Iva). 



Dalla 

Electrosonic, 
il Multivision 
Computer 
ES4024/3E. 
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DALL’INGHILTERRA Al PREZZI D’IMPORTAZIONE 


hree Channel Sound Synrhesiser 
interface incorporale* a BEEP 
audio amplifler and a 3 channel 
sound sythesiser. 

The BEEP ampliliet improves ihe sound 
qualiiy and oulput of thè BEEP 
enormously The 3 channet sound 
synihesiser adds a lotalty nev* 
dimenaion lo sound on your Spectrum 
Il allows you lo program your own music 
with harmomes. exptosions, zaps. 
Ch-mes. wtxslle* and an infinite range ol 
nlhar ori irvi* over <1 full 8 OCtav&S 
2^-'Ihe popolar A'i t.8812 


(Irom basic or M/C| over 3 channels ol 
ione and/or white noise plus envelope 
and volume control. Il come* wlth it's 
own pod mounled (4") speaker wilh 1 
maire ol cable so thai il can be 
posifioned anywhere 
Once this is lilted lo thè expansion pori 
your programmo* will never sound thè 
seme againl 


HARDWARE SINCLAIR 


Spectrum Sinclair versione 16K e 48K . (p. telefonare) 

Spectrum Plus versione 48K . (P- telefonare) 

Int. Joystick Standard Kempston . Lit. 30.000 

Int. Joystick Standard programmabile senza fili Lit. 50.000 

Int. Joystick Standard doppio Joistik . . Lit. 90.000 

Light Pen. Lit 45.000 

Sintetizzatore sonoro 3 voci 8 ottave . Lit. 55.000 

Sintetizzatore vocale currali . Lit. 75.000 

Modem telefonico . Lit. 230.000 

Tastiera addizionale DK Tronic . Lit. 85.000 

Joystick Quick Shoot II . Lit. 25.000 

Int. stampante Centrarne . Lit. 118.000 

Int. stampante Seriale (int. 1) . Lit 150.000 

Mother Board . Lit. 60.000 

Floppy Disk Sistem 3” . Lit. 489.000 

Floppy Disk Sistem 5” . Lit. 1.100.000 

Floppy Disk Sistem 3” 350 K . Lit. 900.000 

Microdrive . Lit. 150.000 

Interfaccia 1 . Lit. 150 000 

Kit trasformazione Spectrum 48 in Plus . Lit. 109 000 

Registratori digitali . Lit. 55.000 


Stampante GP 550 A. Lit. 690.000 

Stampante GP 500 A. Lit. 550.000 

Stampante GP 500 S. Lit. 550.000 

Stampante Epson 80 FT . Lit. 665.000 

Stampante Seikosha 505 . Lit. 290.000 

Monitor Fosfori Verdi' . Lit. 195.000 

Monitor‘Fosfori Ambra’ . Lit 195 000 

Monitor'Fosfori Arancioni' . Lit. 195.000 

Monitor'colori Cabel’ . Lit. 460.000 

Monitor per QL . Lit. 900.000 

Rom Cartrige . Lit. 30.000 

Parti di ricambio Ula. Lit. 40.000 

Parti di ricambio Rom. Lit. 40.000 

Parti di ricambio Membrana . Lit. 19.000 

Parti di ricambio Transistor . Lit. 1.000 

Parti di ricambio Cornice metallica. Lit. 19.000 

Parti di ricambio Tastiera premente. Lit. 19 000 

Cavo seriale per stampante. Lit. 45.000 

Cavo Centronic per stampante . Lit. 45.000 

Filtro antidisturbo. Lit. 6.000 

Cassette data Record - Sony - Dupont etc. (chiedere) 

C 10 - C 20 - C 30 - C 46 - C 60 - C 90 . 


Motori passo passo 8,1 V 1,8 Step . Lit 8.000 

Tubi catodici per Rtty 2” quadrati. Lit 25.000 


HARDWARE E SOFTWARE DA TUTTO IL MONDO DEI COMPUTER 

GAMMA COMPLETA PRODOTTI SINCLAIR- COMMODORE ED ACCESSORI 


his superi) new interface i$ one 
ol our very lates! devetópments 
for your Spectrum. 

Oftering even more leatures. and as 
H's programmale trom thè Keyboard 
or with thè cassette supplied you can 
now use il with any software 




Constructed tram 
high density block ABS 


AH connoctions 
accessible at rear 


Features include:- 

17 directional movemenl 
Keyboard fully funclional 
Rear connector for olhet add-ons 
Microdnve compatible 







































































NUOVA NEWELNUOVA NEWELNUOVA NEWEL 


Connettori 2,54 28+28 . Lit. 6.000 

Connettori Centronic . Lit. 9.000 

Connettori AY 38910 Sintetizer. Lit. 15.000 

Consolle appoggia Spectrum in metallo nero .. Lit. 15.000 

Carta per stampanti = 2000 fogli = 80 colonne Lit. 35.000 

Porta dischetti . (chiedere) 

Porta cassette. Lit. 6.000 

Jdck per Spectrum . Lit. 1 000 

Cavi stampanti per QL. Lit. 45 000 

Cavi Joystick per QL . Lit. 30.000 

Ventole raffreddamento. Lit. 10 000 

ContenitoriABS(plasticalgrapervarieinterfaccie) Lit. 2.000 


HARDWARE VARIO COMMODORE 


Commodore 64. (chiedere) 

Stampante Seikosha 50 A . Lit. 290.000 

Stampante MPS 802 . Lit. 500.000 

Spampante MPS 803 . Lit. 480 000 

Floppy 1541 . Lit. 490.000 

Registratori Commodore 1530 . Lit. 70.000 

Registratori Omega. Lit. 60 000 

Int. Centronic. Lit. 100.000 

Int. Seriale. Lit. 100.000 

Modem. Lit. 230.000 

Joystick . Lit. 25.000 

Tavola Grafica . Lit. 190.000 

Light Pen. Lit. 40.000 

Espansioni Vie 20 8K. Lit. 50.000 

Espansioni Vie 20 16K . Lit. 100.000 

Espansioni Vie 20 32K . Lit. 130.000 

Connettori p. 3,96 22+22 . Lit. 5.000 

Dischetti 5 1/4 pollici/SF AD . Lit. 4.500 

Cassette. (chiedere) 

Coverx64-Vic20-Cic(copritast.inABSxComp.) Lit. 20.000 

Programmatore Epron fino 64 K. Lit. 150.000 

Monitor Color II”. Lit. 460.000 

Monitor Verdi Ambra = Arancioni . Lit. 195.000 

MATERIALE DI RICAMBIO 

Carta per stampanti (2000 fogli) . Lit. 36.000 

Porta dischetti 10 posti. Lit. 10.000 

Porta dischetti 40 posti. Lit. 30.000 

Porta dischetti 90 posti. Lit. 40.000 

Portacassette e per materiale vario (prò Box). Lit. 6.000 

Speech 64 (interfaccia parlante). Lit. 75.000 

Tastiera musicale Miu 64 . Lit. 200 000 

VASTO ASSORTIMENTO LIBRI E ACCESSORI 
SOFTWARE VARIO SU DISCO E CASSETTA 

C 16 Computer con registratore . Lit. 299.000 

C 16 data Recorder . Lit. 99.000 

Joystick . Lit. 25.000 

SOFTWARE E LIBRERIA VASTISSIMA 
NASTRI RICAMBIO 

Per MPS 801 . Lit. 16.000 

Per MPS 802 . Lit. 18.000 

Per MPS 803 . Lit. 20.000 

KIT PULIZIA 

Cassette demagnetizzatrici . Lit. 13.000 

Connettori Comuni di tutte le misure . (chiedere) 


Kit completo per taratura reg. VIC 20 e CBN 64 Lit. 20.000 


VARIO HARD WARE 


Cavo Seriale per stampanti QL . 

Cavo Seriale per stampanti Spectrum 

Cavo per Joystick QL. 

Interfaccia Centronic/seriale per QL 
Interfaccia Centronic per VIC 20, C 64 
Interfaccia Seriale per VIC 20, 64 . 


Autoradio estraibile da macchina modelli: 

HS 100 S - Ritmo - AM/FM Stereo - Auto Stop. 

Cassette - 14 Watts 

HS 350 - Ritmo - AM/FM Stereo reverse - 20 Watts 
Cassette 

Computer MSX SVI 728 + Software . Lit. 650.000 

COMPONENTI ELETTRONICI DI TUTTI I TIPI PER HOBBISTI = KIT 

ACCESSORI 


PROGRAMMI QL 


Forth 

Pascal 

Typing Tutor 

Assembler 

Udg Editor 

Bioritmi 

Basic esteso 

Copiatori 

Chess 

Tool Kit 

Cash Trader 

Lisy 

Bcpl 

Stop 

Fonts 

Program 1 

Program 2 

Boot 

Utility Pak 

Games 

Paintbox 

Zkul 

Wes 

Snakes 

Quadruplette 

Supercopier 

Tutor 

Tutti a . Lit. 30.000 

(cadauno) 

Manuali estesi. Lit. 10.000 

COMPUTER SINCLAIR QL 


PROGRAMMI MSX 


01 MSX Hyperolypic(Trake Field). . . N .1 Lit. 20.000 

02 MSX_Hyperolypic (Trak e Field).. . N.2 Lit. 20.000 


03 MSX_Cubo. Lit. 10.000 

04 MSX_Hot Shoe. Lit. 10.000 

05 MSX_Lander . Lit. 10 000 

06 MSX_Hunch Back . Lit. 12 000 

07 MSX__ Polar Star . Lit. 10.000 

08 MSX_Pinball . Lit. 15.000 

09 MSX- Battle Ship . Lit 12.000 

10 MSX_Manie Miner. Lit. 20.000 

11 MSX_Cannon Fighter . Lit. 10 000 

12 MSX_Pittali II. Lit. 20.000 

13 MSX-Blagger . Lit. 15.000 

14 MSX_Superpuzzle. Lit. 10.000 

15 MSX_Bilancio Famigliare. Lit. 15.000 

16 MSX_Hustler (Carambola) . Lit. 10.000 

17 MSX_Maxima . Lit. 10.000 

18 MSX_Binary Land . Lit. 10.000 

19 MSX_Buzzoff. Lit. 12.000 

20 MSX_Punchy. Lit. 15.000 

21 MSX-__ Fire Rescue . Lit. 12.000 

22 MSX Disc Warrior. Lit. 10.000 

23 MSX_River Raid. Lit 20 000 

24 MSX_ H.E.R.O. Lit. 20.000 


N.B. I NS. PREZZI SONO COMPRESI DI IVA - 
PREVENDITA PER CORRISPONDENZA 

































































































Chi, Cosa, Come, Quando... 



Le ultime 
macchine 
per scrivere 
della Casio: 
CW-20 , 10 e 30. 


Scrittura 

"personale" 

Molto leggere e compatte, le 
nuove Casiowriter si propongono 
come le campionesse della datti¬ 
lografia elettronica: incorporano 
infatti le più sofisticate funzioni 
di stampa (sottolineatura, spazia¬ 
tura doppia, centratura e giustifi¬ 
cazione). nonché memorie "intel¬ 
ligenti" solitamente proprie solo 
dei word-processor. Il modello 
CW-20 offre per esempio 4 K di 
memoria, con funzioni di inseri¬ 
mento e cancellazione; CW-30 è 
dotata di interfaccia RS-232C e 
CENTRONICS, e di un modem 
che include la selezione e la rispo¬ 
sta automatica; CW-10, infine, 
si distingue soprattutto per il 
prezzo molto contenuto. 


Il Digital 
Storage 
Oscilloscope 
modello 
1421 Gould. 


Funziona? 

Sì, due volte 

Prodotto dalla Gould e com¬ 
mercializzato per tre milioni e 
mezzo daH’Elettronucleonica, il 
Digital Storage Oscilloscope 
1421 è infatti a doppia funzione: 
dispone di due convertitori A/D a 
8 bit e memoria di 1 Kbyte per 



canale ed è in grado di memoriz¬ 
zare segnali ripetitivi fino a 20 
MHz e segnali transitori fino a 2 
MHz; inoltre, può funzionare co¬ 
me oscilloscopio in tempo reale, 
con larghezza di banda fino a 20 
MHz e sensibilità massima di 
2mV/cm. 

Portatile (6 kg) e compatto 
( 140 x 305 x 460 mm), garantito 
per due anni, il DSO 1421 può 
anche visualizzare contempora¬ 
neamente un segnale in tempo 
reale e uno precedentemente me¬ 
morizzato, permettendo utili 
confronti; può inoltre ampliare 
per dieci quanto immagazzinato 
e, tramite uscita analogica, darne 
automaticamente copia su un 
normale registratore. 

Grafica e suoni 
con il C64 

Chi ha già una discreta familia¬ 
rità con il computer troverà in 
questo volume di Stan Krute 
(Muzzio 1985, pagg. 265, L. 
22.000) una guida per cimentarsi 
nelle capacità grafiche e sonore 
del Commodore 64. 

La trattazione è strutturata in 
modo da permettere un'assimila¬ 
zione graduale dei concetti e dei 
procedimenti: ognuno dei dieci 
capitoli di cui si compone il libro 
presenta una breve introduzione 
all'argomento, un programma 
originale corredato da possibili 
modifiche e una serie di esercizi 
per il lettore, di cui vengono co¬ 
munque fornite le soluzioni. 

Numerose illustrazioni accom¬ 
pagnano inoltre l’esposizione, 
per rendere il piu possibile age¬ 
vole la comprensione dei concetti 
e dei programmi. 

ZX80 e ZX81 
come strumenti 
di controllo 

Questo libro di Robert L. 
Swarts (Muzzio 1984, pagg. 222, 
L. 15.000) si rivolge a coloro che, 
stanchi di considerare il loro pic¬ 
colo computer come un giocatto¬ 
lo, desiderano utilizzarlo in ma¬ 
niera più utile, magari per risol¬ 
vere alcuni problemi della vita 
quotidiana, senza per questo do¬ 
ver spendere cifre astronomiche. 

Non occorre essere degli assi 
dellinformatica per comprende¬ 
re e assimilare queste pagine. Es- 



Grafiut e suoni con 
il Conimotlurc 6*7 

. * 4 » 


se sono infatti concepite come 
una guida sistematica, che, par¬ 
tendo da alcuni concetti teorici di 
base, si addentra via via nei 
meandri della programmazione, 
insegnando come sfruttare appie¬ 
no il computer così com’è e for¬ 
nendo al tempo stesso spunti di 
semplice (ed economica) attua¬ 
zione per migliorarne la resa. 

Basta dunque una discreta co¬ 
noscenza della programmazione 
in Basic e una minima familiarità 
col linguaggio macchina per met¬ 
tere, con l’aiuto di questo libro, 
un piccolo computer all’altezza 
dei "big". 


Tecnologie della 
microelettronica 


Questo il titolo di un libra di 
Dennis Roddy (Calderim 1984, 
pagg. 220, L. 12.000), che offre 
una rapida panoramica del nuovo 
scenario della microeletlronica, 
arricchitosi di nuovi componenti: 
memorie, integrati in media e lar¬ 
ga scala eccetera. Non si tratta 
quindi di un manuale di tecnolo¬ 
gia elettronica generale, ma di un 
complemento ai corsi tradizionali 
e di un’utile fonte di aggiorna¬ 
mento per amatori e tecnici. 

Sia chi ha familiarità con i tran¬ 
sistor discreti ma non con ì circui¬ 
ti integrati, sia chi si affaccia ora 
all’affascinante mondo dell’elet¬ 
tronica può seguire con profitto 
questo volume, dal succoso som¬ 
mario: fondamenti di teoria, pro¬ 
cessi di fabbricazione per compo¬ 
nenti e circuiti in silicio, compo¬ 
nenti planari in silicio e circuiti 
integrati, circuiti logici bipolari, 
amplificatori differenziali, com¬ 
ponenti a metallo-isolante-se¬ 
miconduttore, circuiti MOS, a 
film sottile, a strato spesso, ibri¬ 
di, applicazioni di microelettro¬ 
nica in microonde e memorie a 


semiconduttore. 





























Non si # 
emozioni, 
non sono 

equazioni 


E magari lo fossero: 
sarebbero già più 
familiari! Si tratta 
invece di 

disequazioni, e di 
secondo grado perdi 
più. Con i loro 
graziosi simboletti 
sono in grado di 
esasperare lo 
studente più 
sgobbone. A meno 
che... 


I nfide e molto diffuse, tutt’altro 
che in via di estinzione, vivono per 
lo più inserite in sistemi semplici o 
misti, ma si può anche sorprenderle 
sole, queste davvero pericolose be- 
stiacce. Chi, in seguito a iniziative 
culturali deprecapih, si è trovato a 
doverle fronteggiare, ammette di 
aver sacrificato a questo scopo i mi¬ 
gliori pomeriggi della sua irripetibi¬ 
le giovinezza. E li rimpiange. 

Sono le disequazioni, o inequa¬ 
zioni che dir si voglia; fornite di una 
o più incognite, vengono formal¬ 
mente contrapposte alle più note 
equazioni, alle quali però si accom¬ 
pagnano spesso formando i famosi 
sistemi che, una volta risolti, produ¬ 
cono nello studente la diffusa e te¬ 
mibile "emicrania trinomia". 

Perché dunque, si chiedono i figli 
dell'era informatica, non farle risol¬ 
vere al personal computer, queste 
pizze di disequazioni di secondo 
grado? Con il tempo e l'energia così 


risparmiati gli studenti potrebbero 
intanto, chissà, familiarizzare un 
po’ con quelle di terzo... 

Il programma 

Semplice e veloce, questo pro¬ 
gramma abilita il computer a risol¬ 
vere disequazioni di secondo grado 
con discriminante indifferentemen¬ 
te positivo, negativo o uguale a ze¬ 
ro. Ideato per VIC 20 in configura¬ 
zione base può essere però imple¬ 
mentato su qualsiasi home o perso¬ 
nal computer, perché è scritto in ba¬ 
sic puro. 

Il suo funzionamento c molto 
semplice: richiede in input i coeffi¬ 
cienti del trinomio e il verso della 
disequazione e, controllata la validi¬ 
tà dei dati di partenza (righe 70 e 
90), procede subito a calcolare il va¬ 
lore del discriminante. 

Se questo risulta positivo, il com¬ 
puter passa alla determinazione del- 












Non si emozioni, non sono equazioni 


10 REM DISEQUAZIONI DI SECONDO GRADO 
28 Q$="INTERVfìLLGDELLE RADICI 
30 FRI NT" 3|" P0KE36879. S 
40 FRI NT "ZI 

50 FRI NT" «{DISEQUAZIONI DI 2' GRADO 

60 FRI NT"«INSERIRE I COEFFICIENTI DEL TRINOMIO»" 

70 INPUT " A= ", A I NF'UT " B= ", B INPUT " C= ", C 
80 I FA=@THENPR I NT " Wiimmm' GOTO70 
90 INPUT "«VERSO «/»"; V$ 

100 IFVSO"< "ANDVSO " > " THENFRI NT " 'jmmMMWBm" GOT090 
110 FRI NT 'T3C ALCOL 0 DEL DISCRIMINANTE - 

120 PRINT"«MD=B12-4#A#C 
130 D=B12-4*A*C 

140 print"«".b. "12-4*". fi. c; "=";D 

150 PRINT"«PREMI UN TASTO" 

160 GETA$ IFfi$=""THEN160 

170 IFD=0THEND$="UGUALE A " GOTO390 

180 IFD<0THEND$="MINORE DI " 

190 IFDO0THEN390 „ ___ 

200 PRINT"«IL DISCRIMINANTE E' POSITIVO QUINDI E y POSSIBILE CALCOLARE 
RADICI ■ 

210 PRINT"«PREMI UN TASTO" 

220 GETA*: IFfi$=""THEN220 
230 PRINT "ZI -B+-SQRCD) 

240 PRINT"XI.2=-= 

250 PRINT" 2*A 

260 X1=<-B+SQR<D)>:X2=<-B-SQR<D >> A2=2*A X=X1/A2 V=X2/A2 
270 PRI NT " « ". -B. " + ". I NT (. SQR < D > > 

280 PRINT"X1=- =".X 

290 PRINT" ".A2 

300 PRINT"« ".-B. INTCSQRCD)) 

310 PRINT"X2=- =".V 

320 PRINT" ".A2 

330 PRINT"SPREMI UN TASTO" 

340 GETAS IFA$=""THEN340 

350 IF C V$=">"ANDSGN <A > = 1)OR <V$="<"ANDSGN< fi >=-1> THENUOSUE490 : GOTO430 
360 PRINT"□IL VERSO E IL PRIMO COEFFICIENTE SONO DISCORDI QUINDI 
370 PRINT"LA DISEQUAZIONE E' VERIFICATA PER VALORI INTERNI ALL'".Q$ 

380 PRINT"M".V. "<X<" .X."«" GOTO430 

390 IF ( V$= " > " ANDSGN < A :> = 1 > OR C V$= " < " ANDSGN C A > =-1 > THENGOSUB530 GOT0430 
400 PRINT".TESSENDO : DISCRIMINANTE ".D$."0" 

410 PRINT"E VERSO DISCORDE CON 
420 PRINT"MAI VERIFICATA" 

430 PRINT"«VUOI RIPETERE 

440 PRINT"-" 

450 GETA$ 

460 IFA$="S"THEN40 
470 IFA$="N"THENSTGP 
480 GOTO450 

490 PRINT"TIL VERSO E IL PRIMO 
500 PRINT"DISEQUAZIONE E' 

510 PRINTV. "V X>".X 
520 RETURN 

530 PRINT"TESSENDO : DISCRIMINANTE ".D$."0" 

540 PRINT"E VERSO CONCORDE CON IL PRIMO COEFFICIENTE LA DISEQUAZIONE E' 
550 PRINT"SEMPRE VERIFICATA _ 

560 RETURN 


IL PRIMO COEFFICIENTE LA DISEQUAZIONE E' 
LA PROCEDURA <S/N>?" 

COEFFICIENTE SONO CONCORDI QUINDI LA 
VERIFICATA PER VALORI ESTERNI ALL'".Q$ 


LE 


le radici del trimonio e quindi alla 
stampa dei risultati; se risulta invece 
negativo o uguale a zero, il pro¬ 
gramma prosegue valutando il verso 
e stampando di conseguenza la ri¬ 
sposta. 

Ecco le principali righe e funzio¬ 
ni: 10—50 presentazione; 60—90 ac¬ 


quisizione e controllo dei dati inizia¬ 
li; 100-110 calcolo del discriminan¬ 
te e valutazione del suo segno; 
120-140 calcolo delle radici e stam¬ 
pa dei risultati (discriminante positi¬ 
vo) ; 150-160 stampa dei risultati 
(discriminante negativo o pari a ze¬ 
ro). Marco Napoleone 


Questo programma è 
disponibile su 
cassetta. L'elenco, i 
prezzi e le modalità 
d'ordine di questa e 
delle altre cassette 
disponibili sono 
riportati alle pagine 81 e 
82. 


12 


















Pagina mancante (pubblicità) 
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Plotter 
per C64 
e Vie 20 



Non è 
regolare, 

ha l'area 
sospetta. •• 


Continuano le avventure 
del fantastico 1520: 
questa volta, stanco di 
giocare come al suo 
solito, il plottersi 
cimenta con due 
problemi grafici di 
natura matematica; 
traccia perimetri, anche 
molto complessi e 
irregolari, di poligoni, e, 
non pago, grafici di 
equazione di secondo 
grado. Il computer, 
intanto, fa i conti 
del caso... 


F inché si tratta di calcolare l’area 
di un quadrato siamo tutti cam¬ 
pioni; un trapezio scaleno, però, già 
comincia a mettere in crisi i meno 
portati. Se poi si vuole scoprire 
quanto misura la superficie di un 
ottagono irregolare, si salvi chi 
può... E non è finita: stremati dal 
travaglio geometrico, stiamo per in¬ 
cappare nell’affanno algebrico. Se 
sapere cos’è un numero immagina¬ 
rio non è da tutti, calcolare la radice 
di un’equazione di secondo grado è 
privilegio di pochi... Anzi, perché 
non farlo addirittura fare al compu¬ 
ter? E magari regalargli, come pre¬ 
mio di ringraziamento, un bel plot¬ 
ter che gli risolva brillantemente i 
problemi di grafica? 

Se infatti il calcolatore ci può dare 
una mano nei nostri affanni mate¬ 
matici, il plotter, rappresentando 
con forme le entità astratte (nume¬ 
ri) che la macchina manipola, ci ren¬ 
de meno ostico e più gradevole lo 
studio. Specialmente quando i nu¬ 
meri si riferiscono alla geometria 
come nei due programmi che 
seguono. 

Il primo permette di far disegnare 


al plotter un poligono qualsiasi (50 
lati bastano?) e di calcolarne poi l'a¬ 
rea. Con il secondo, invece, il 1520 
dà la rappresentazione grafica di 
una retta o di una equazione di se¬ 
condo grado e ne calcola le radici. 
Entrambi sfruttano la grafica e i co¬ 
lori, che si possono però modificare 
a piacere intervenendo sulle righe 
dei listati. 

Area dei poligoni 

Vi sono diversi programmi che 
calcolano l'area dei vari triangoli e 
dei poligoni regolari. Copiando con 
attenzione questo breve listato po¬ 
trete invece conoscere la superficie 
di un qualsiasi poligono, regolare o 
irregolare, convesso o concavo, for¬ 
mato anche da un grande numero di 
lati (nel dimensionamento delle va¬ 
riabili si è giunti a prevederne 50). 

Dopo questo dimensionamento e 
l’apertura dei file per il plotter (ri¬ 
ghe 20-50) si sceglie il colore verde 


COORDINATE DEI UERTICI 


UERTICE 1 
UERTICE 2 
UERTICE 3 
UERTICE 4 
UERTICE 5 
UERTICE 6 
UERTICE 7 
UERTICE 8 


X = 32 
X= 78 
X - 12 
X= 224 
X = 306 
X- 388 
X- 241 
X- 400 


V = 45 
Y= 156 
Y= 321 

Y = 289 

Y = 411 

Y = 263 
Y= 197 

Y = 64 


AREA = 76759.5 UNITA' QUADRATE 



COORDINATE DEI UERTICI 


UERTICE 1 
UERTICE 2 
UERTICE 3 


X = 24 
X = 261 
X = 199 


Y= 24 
Y= 122 
Y= 378 


AREA = 33374 UNITA' QUADRATE 


Figure 1 e 2: due poligoni ottenuti con il programma “area di poligoni’’, che permette anche di calcolarne l’area. 
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Non è regolare, ha l'area sospetta. 


Listato 1. AREA DI POLIGONI 


10 

11 
12 
13 
20 
30 
40 
50 
55 
60 
70 
80 
90 
95 
100 
1 10 
115 
120 
130 
140 
L 50 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
300 
310 
320 
330 
340 
350 
360 
380 
390 
400 
410 
I 3 
420 
460 
470 
480 


RED 

REM 


AREE* DI 
[FINO A 


POLIGONI 
50 LPT1 3 


DIP1XC50 3 . YC50 3 
OPEN 1 ,6 . 1 
0PEN2.6.2 
0PEN4 .6 
PRINT«2,2 

PR I NT» 1 . D .0 . 480 
PR I NT» 1 , D ,479 , -480 
PRINT» 1 , N " .0 , -480 
PRINTttl ," r 

PRINTCHR$C 147 3:PRINT»2,0 
INPUT NUMERO DEI UERTICI 
IFN<3ORN>50THEN95 
PRINT 
FORI = 1 TON 
IFI >1THEN170 
PRINT 'COORDINATE •' 


UERTICE ; I 
UERTICE " ; I; 


.reI 3 


PRINT'' 

GOTO180 
PRINI 
INPUTXC I 3 
NEXTI 

XCN+1 3 =X C 1 3 

YCN+13=YC 1 3 

PRINT»! , R ,XC1 3.YC l 3 

FORI= 1 TON+1 

PRINT» 1 , "J' ,XC I 3.YC I 3 

NEXT 

A=0 

FORI -1TON 

P-P+fXCI3 + XCI + l 3 3* C Y C I 3-YCl + l 33 
NEXTI 

PRINT »1, R ,0,-30 
PRINT»?,3 
PRINT»4 

PRIN!»4 . 'COORDINATE DEI UERTICI 
P R I N T » 4 

FORI = 1 T ON 

PRINT»4, UERTICE I : X- XCI 3 Y='YC 


NEXTI 
PR INT »2 
PRINT »4 
PRINT »4, 


0 


ARilA = JABSCA 3/2 "UNITA 

DRATE 

490 PRINT»4:PRINT»4:PRINT»4 

500 PRINTCHR*C 147 3 "UN ALTRO POLIGONO ? 

510 GE TA$ : IF A1> - THEN510 

520 IFAiO "S "THEN600 

530 G0T055 

600 CLOSE 1 : CLOSt 2 : CLOSE4 


UUA 


per il tracciamento degli assi carte¬ 
siani, fissando (riga 90) la loro nuo¬ 
va origine. A questo punto intervie¬ 
ne lo schermo: nelle righe 95-190 
vengono inseriti il numero dei verti¬ 
ci del poligono e le loro coordinate 
(x e y) nel piano cartesiano. Le righe 
200-210 fanno sì che il poligono sia 
chiuso, cioè che un lato congiunga 
l’ultimo con il primo vertice. 

Parte il plotter con la penna alzata 
posizionandosi sulle coordinate del 
primo punto (riga 220) e poi dise- 


eXT2+BX+C=Y 
41= 0 

B= -.7 
C= 51 

-200 <X< 200 



X= 72.8571429 


Figura 3: grafico della retta y = -0.7x + 51 
che si annulla con x = 72.8571429. 


6Xt2+BX+C=Y 
A= .01 
B= 2 
C= 20 

-240 <X< 180 



XI= -10.5572809 
X2 = -189.442719 

Figura 4: la parabola y = O.OIxf + 2x 
ha due soluzioni reali e distinte. 


+ 20 


PXt2 hBX + C-Y 
8 = -.2 
B= 20 
C= -510 
0 <X< 150 


XI-- 
X2 = 


50 + 7.07106772 
5? - 7.07106772 


Figura 5: la parabola y = -0.2x 2 + 20x - 510 
ha due soluzioni coniugate e complesse. 



gnando l’intero perimetro. Le righe 
300-330 sono il nucleo del program¬ 
ma: calcolano la superficie della no¬ 
stra figura che verrà poi scritta dal 
plotter, dopo l’elenco delle coordi¬ 
nate dei vari vertici (righe 340-490). 
Alla fine (righe 500-600) il video vi 
chiederà se vorrete continuare... 


Oltre che per la sua utilità, questo 
programma può essere usato anche 
come piccolo gioco percettivo che 
potrete proporre agli amici: inse¬ 
rendo coordinate a casa fate dise¬ 
gnare al 1520 diversi poligoni e poi 
chiedete (a colpo d’occhio e senza 
guardare la scritta in basso) di ordi- 
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Listato 2. GRAFICO E RADICI DI EQUAZIONI 

10 REM GRAFICO E RADICI DI EQUAZIONI 

11 REM DI CPRIMO E 3 SECONDO GRADO 

12 : 

13 : 

20 OPEN1,6.1 
30 0PEN2,6,2 
40 0PEN4 .6 
50 PRINT«2,2 

100 PRINTCHR*C1473"EQUAZIONE TIPO: 

110 PRINT:PRINT"AXt2+BX+C=Y 
120 PRINT: INPUT COEFFICIENTE A - ;A 
130 PRINT: INPUT COEFFICIENTE B = ;B 
140 PRINT: INPUT 'COEFFICIENTE C- ;C 
150 PRINT:INPUT 'UALORE MINIMO DI X CX>-2 
40 3 = ; XI 

160 INPUT UALORE MASSIMO DI X CX<240 3 - 
; X2 


170 

PRINT:INPUT 

STEP DI X CDA 0.1 A 13- 

; P 




200 

PRINTtt4 

AXT2 + BX + C-Y " 

205 

PRINT »2 

0 


210 

PRI NT»4 

A = 

"A 

220 

PRINT #4 

B - 

"B 

230 

PRINT «4 

C = 

"C 

240 

PRINT»4,X1 

<X< X2 

250 

PRINT«1 

M" 

; 240;0 

255 

PRINTttl 

D" 

;240; 480 

260 

PRINTttl 

M" 

; 0:-240 

265 

PRINTttl 

"D" 

; 473; -240 

270 

PRINTttl 

M" 

; 240;-240 

280 

PRINTttl 

' I " 


285 

PRINTtt2,3 


300 

F0RX-X1T0X2STEPP 

310 

Y=A*Xf2+BxX+C 

320 

I FY >240ORY < 

-240THEN340 

330 

PRINTttl 

R 

;x; y 


335 PRINT # 1 ,''J' ; X+l ; Y+ 1 
340 NEXT 

320 PRINTttl , M ; 0: -500 
380 PRI NT«2 ,0 

400 IFA =0ANDB-0ANDC -0 THE NI000 

410 IFA 0ANDBO0ANDC -0THEN1 100 

420 I FA - 0ANDB < >0ANDC < >0THEN1 200 

430 IFAO0ANDB =0ANDC =0THEN1 300 

440 IFA < >0ANDB -0ANDC < >0THEN 1400 

450 IFAO0ANDBO0ANDC-0THEN1500 

460 IFAO0ANDBO0ANDCO0THEN1600 

1000 PR INT»4, X - A:GOSUB2000 

1100 PRI NT«4, X= 1/B:GOSUB2000 

1200 PRINT»4, X = C -C/B 3: GOSUB2000 

1300 PRINTtt4, XI-X2- B:GOSUB2000 

1400 IFO0ANDA >0THENC =-C: PRINT»2 ,3 

1405 IFC<0ANDA<0THENC=-C: PRINT#2,3 

1410 J -SQRC-C/A 3:K-C-CSQRC-C/A 33 3 

1420 PRINT#4 , XI= J 

1430 PRINT«4 , X2 - K:GOSUB2000 

1500 PRINT#4, XI = 0 

1510 PRINT»4 , X2 = C-B/A3:GOSUB2000 

1600 IFCBT2-4XAXC 3<0THENPRINT#2 ,3: GOSUB1 

700 

1610 D=SQRCBT2-4xAxC3 
1620 PRINT#4, XI- C C-B + D3/C2XA3 3 
1630 PRINT#4, X2 : C C-B-D 3/C2XA 3 3:G0SUB2 
000 

1700 D=SQRCABSCBT2-4xAxC33 

1710 PRINT «4, XI - [-B/C2XA33 + ABSCCD/C 

2XA3 33 

1720 PRI NT t*4 , X2 = C - B/C 2xA 3 3 " - ABSC CD/C 
2xA 3 3 3 

2000 PRINTCHRiC173 "UN'ALTRA EQUAZIONE CS 
/N 3 7 " 

2010 GETA1> : IFA$ THEN2010 
2020 I FA$ < > S THEN2100 
2030 PR I NT»4 : PR I NT 1*4 
2040 PR I NT »2,0 
2050 GOTO50 

2100 CLOSE1 : CL0SE2:CL0SE4 


narli secondo la progressione cre¬ 
scente delle loro superfici. Con le 
strane forme ottenute non sarà cer¬ 
to facile... 

Grafico e radici 
di equazioni 
di (1° e) 2° grado 

Il primo grado è stato messo tra 
parentesi, ma non certo per la mino¬ 
re importanza o la relativa facilità di 
quelle equazioni; è che non sono 
altro che un sottoinsieme, un caso 
particolare delle equazioni di secon¬ 
do grado. Consideriamo la loro for¬ 
ma tipo: ax 2 + bx + c = 0; se a = 0 
diventa di primo grado. 

La stessa equazione tipo apparirà 
sul video dopo aver copiato il listato 
2. La frecciolina verticale a sinistra 
è, come senz’altro saprete, il segno 
di elevamento a potenza. Vi si chie¬ 
de ora di immettere i tre coefficienti 
a, b e c. Attenzione al loro segno. 


poiché se la vostra equazione fosse: 
12x 2 - 3x -4 dovreste scrivere: 12, -3 
e -4. 

La rappresentazione grafica del- 
l’equazione avviene su un piano car¬ 
tesiano i cui estremi (nelle x come 
nelle y) sono -240 e 240. Sono questi 
i limiti superiore e inferiore in cui 
potremo osservare l’andamento 
della curva, che può procedere con 
passi (step) più o meno grandi. Non 
conoscendo a priori la forma e l’in¬ 
gombro della curva conviene sce¬ 
gliere come limiti l’intero campo del 
foglio (-240 e 240) e uno step alto 
(1); una prima immagine, meno 
precisa ma più veloce, vi permetterà 
in seguito di risparmiare tempo fis¬ 
sandovi su un solo settore del piano 
con la figura più accurata disegnata 
con uno step più basso (0.1). 

Dopo aver ricevuto questi input il 
plotter scrive l’equazione tipo, elen¬ 
ca i coefficienti scelti e traccia gli 
assi cartesiani (righe 100-280). Il lo¬ 
ro incrocio è ora la nuova origine 


per cui potranno essere considerati 
valori negativi di x (i due quadrati a 
sinistra) o di y (i due quadrati in 
basso). Con le righe 285-340 si trac¬ 
cia la curva. Sempre nel caso che 
non conosciate lo sviluppo grafico 
dell’equazione, non preoccupatevi 
se il 1520 sta immobile per alcuni 
secondi: vengono calcolati infatti 
tutti i valori esterni al campo, ma 
disegnati (in rosso) soltanto quelli 
interni. 

Terminato il grafico si passa al 
calcolo delle radici che, come sapre¬ 
te, possono essere numeri reali o 
immaginari. I primi verranno scritti 
in nero mentre i secondi (anche nel 
caso di radici complesse) saranno 
scritti in rosso. Le righe 400-460 esa¬ 
minano i vari coefficienti e rimanda¬ 
no a delle subroutines (righe 1000- 
1720) per il calcolo delle radici. Per 
terminare, la solita opzione che per¬ 
mette di studiare un’altra equa¬ 
zione. 

Aldo Spinelli 
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Bersagli sono gli atomi, 
proiettili alcune 
infinitesimali particelle; 
il giocatore/bombardiere 
non ha però intenti 
bellici, anzi è un 
pacifico amatore dei 
giochi di deduzione: 
il suo scopo è capire, 
studiando da buono 
stratega rimbalzi e 
traiettorie, cosa c'è 
dentro la "scatola nera"... 


Attacco 
atomico 


Spectrum 
48 K 


GAMES 


C apacità strategica e finezza di ra¬ 
gionamento da un lato, tempe¬ 
ramento curioso dall’altro sono 1 re¬ 
quisiti richiesti all’aspirante gioca¬ 
tore: “scatola nera’’ è dedicato in¬ 
fatti a chi vuole “sapere cosa c’è 
dentro”, a chi non sopporta le serra¬ 
ture, i coperchi e le porte e, a scatola 
chiusa, non compera nemmeno Ar¬ 
ri goni. 

L’obiettivo, infatti, è quello di de¬ 
durre la struttura interna di un og¬ 
getto (molecola) dalla sola analisi 
delle posizioni di entrata e uscita di 
una particella interagente con i 
componenti (atomi) dell’oggetto; le 
posizioni di entrata della particella 
sono sempre scelte dal giocatore, 
ma non certo a caso; anzi più ragio¬ 
nata è tale scelta, più rapidamente 
(cioè con meno “spari”) si può arri¬ 
vare alla soluzione del problema. 

Ecco perché il gioco richiede ca¬ 
pacità deduttive durante tutto il suo 


svolgimento ed è destinato a entu¬ 
siasmare chi ama cimentarsi in bat¬ 
taglie strategiche. 

Si spara# E poi?_ 

il principio non è poi tanto dissi¬ 
mile da quello della più classica bat¬ 
taglia navale: si spara senza vedere 
l’avversario e, a mano a mano che si 
ottengono dei risultati, si aggiusta il 
tiro e si comincia a capire quali sono 
le posizioni prima oscure. Ma a qua¬ 
li leggi e regole obbediscono i cor¬ 
puscoli di “scatola nera”? 

Normalmente la particella spara¬ 
ta dal giocatore e l’atomo comincia¬ 
no a interagire solo quando il pro¬ 
lungamento dell’ultimo segmento di 
traiettoria dista dall’atomo non più 
di una casella: per esempio (Figura 
1) sparando alla posizione 12 non ci 
sarà alcuna interazione, nemmeno 
con l’atomo in 10,16 (il più vicino), 
perché la minima distanza fra esso e 


la particella è di due caselle. 

Se la particella viene sparata in 29, 
invece, la traiettoria dista dallo stes¬ 
so atomo una casella: la repulsione 
avviene come in figura, cioè in una 
casella precedente quella occupata 
dall'atomo. Dopo questa deviazio¬ 
ne (di 90°) la particella piomba sui 
due atomi della riga 3: sebbene la 
forza repulsiva sia maggiore, la de¬ 
viazione avverrà come se l'atomo in 
3,17 non esistesse (1° caso partico¬ 
lare). 

Cosa succede quando la particella 
si trova affiancata da due atomi a 
distanza di interazione? Come l’in¬ 
tuizione suggerisce dovrà subire due 
deviazioni di 90°, e sempre nello 
stesso verso: cioè una “riflessione” 
di 180°; quindi se nella figura si spa¬ 
ra in 2, la particella uscirà da dove è 
entrata. Anche sparando in 7 si ot¬ 
tiene questo effetto, e a maggior ra¬ 
gione (2° caso particolare). 
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EN 
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24 
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Figura 1 


EN 


US 


IsCATOLA NERA! 

REC - 0 11111112 

34567890 



33333334 

34567890 


E se la particella punta diretta- 
mente su un atomo? 

Ebbene, la sua velocità è suffi¬ 
ciente a vincere la forza repulsiva: la 
particella verrà allora assorbita dal¬ 
l'atomo; nella figura sparando in 4 
dopo una deviazione dovuta all'ato¬ 
mo in 3,16, la particella verrà assor¬ 
bita in 6,15. 

Al giocatore non verrà comunica¬ 
ta la posizione di assorbimento, ma 
anche questo tipo di interazione ha 
la sua importanza ai fini della solu¬ 
zione. 

Può avverarsi il caso che un ato¬ 
mo si trovi lungo il bordo della sca¬ 
tola, come quello in 1,16; la parti- 
cella sparata in 17 verrà deviata in 
ritardo, come in figura (3° caso par¬ 
ticolare), e successivamente assor¬ 
bita dall’atomo in 1,19. La stessa 


Listato 




** SCATOLA NERh ** 

© 19-55 An a c 1et o F u r l a n 
i à u Papa Giovanni 35/10 
31015 C o n e g 1 . 1 a ri o i T U ) 

LLS GO SUB 3610 GO SUB 4 
GO SUB 3910 LET re C =0 
BORDER 6 PhPER 6 CLS GO 
5010 GO SUB 4310 

GO SUB 3410 G 


4910 


G 0 o U B 
3010 

I n s e f 


i rii 


e ■'o fuodi fica 


tentati =0 then go to 25o 


30 
610 
40 
SUB 
50 
0 T 0 
95001 
1 P 0 t 5 S 1 
2510 IF 
0 

2590 IF tentati < Li V THEN BEEP .1 
.25 PRINT 00 , AT 1,0. UUGI PRIHh 
CANCELLARE ? I.s/n.t PAUSE G I 
F INKEY$ < > S THEN GG TG 2530 
2530 BEEP .5,15 PRINT OO , BRIGh 
T 1,AT 1.0," F ASE DI CANCELLA 

ZIGNE " PAUSE 100 
2540 GG SUB 2670 IF p $ i. pri,seO 
=" THEN GO Tu 2560 
2550 LET P $ (p f i , se C ) =" LET te 
ritatistentati-i LET s$="^" GO 
sub 2650 if tentatis© then go t 

G 2560 

2560 PRINT 00.AT 1,0;"CANCELLI A 
NCOR A ? (s/n) ” PAUSE 0 

2570 IF INKEY $ = s " THEN GG TG 25 
40 


2530 BEEP .5,25 PRINT 00, BRIGH 
T 1,HT 1,0;" FASE DI INSERÌ 

MENTO ": PAUSE 100 

2590 GO SUB 2670 

2600 IF p$ (prì . seC) <>"O" THEN LE 
T p$ (pri,sec)="0" LET tentati=t 
fintati+1 LET s $ = ” * GO SUB 265 
0 

2605 IF tentati<iiv then print » 
0,AT 1,0,"INSERISCI ANCORA ? (s/ 
n) " PAUSE 0 IF INKEY*="S 

OR tnt=40 THEN G0 TO 2590 

2o 10 if tentati=iiv then beep .5 

.35 PRINT 00,AT 1.0.' CÙNFRuNTO 
LE MOLECOLE ? is/n)" PAUSE 0 
IF INKEY$ = "S" OR tnt=40 THEN GG 
TG 2620 

2615 GG TO 3010 

2620 FOR n=l Tu 12 IF p$(n) <Hi)$ 
(n) THEN GO TO 2640 

2630 NEXT n BEEP 1.20 BEEP 1,1 
0 PRINT AT 2,14;" 

',80. FLASH 1. BRIGHT 1 ;AT 1 
.0, " C E L'HAI F A t T A 
1 LET pun=INT ( l iV f 2 410/t n t) 

PRINT AT 5,14, "PUN = " ;pun IF p 
un>ree then let ree spuri print a 
T 4,14,- REC = " .ree 
2635 PAUSE 300 GG TG 3195 
2640 BEEP 1,-15 PRINT 00,AT 1.0 
SPIACENTE ... RIP R Q U A 1 
PAUSE 200 GO TO 3170 
2650 BEEP .05,50 PRINT AT 6+pri 

, 20 +5e c;s $ 

2660 RETURN 

2670 BEEP .15.30 PRINT FLASH 1, 
AT 2,14,"PRIMA COGRD.(1-12)" IN 
PUT pri IF p ri <1 OR pri >12 THEN 
GG TO 2670 

2680 BEEP .15.30 PRINT FLASH 1. 
HT 2,14, "SEC. COORO. 113-20) " : IN 
put sec IF sec<l3 or sec >20 thè 
N G 0 T 0 2680 

2690 LET sec =seC-12 PRINT AT 2. 

14," _ " ; RETURN 

2800®sHUBI Dimostrar, interazioni 
2810 LET d irrisi FOR n = 1 TO tnt 
G 0 SUB 31 1 6.0 

2820 LET i = t in) IF ri > 1 THEN LET 
M.ash=0 let rigasn-l GO SUB 2 
910 

2830 LET rida=n LET flash si: GO 
SUB 2910 

2840 LET SU= 0 LET dX=0 
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cosa succede anche se sulla traietto¬ 
ria della particella si trova un altro 
atomo distante una casella dallo 
stesso bordo: sparando in 21, la par¬ 
ticella uscirà subito in 20 (4° caso 
particolare). 

Rimane un caso particolare, simi¬ 
le al 1°: si considerino gli atomi di¬ 
sposti in 6,20 e 7,20; sparando in 26 
la particella non penetra nella scato¬ 
la, ma viene deviata come se uscisse 
in 25. Naturalmente sparando in 27 
fuoriuscirà in 28. 

Buon divertimento 

Durante il gioco tutte le possibili¬ 
tà esaminate sopra avvengono a 
“scatola chiusa”: il giocatore infatti 
ha a disposizione solo i dati sulla 
tabella per dedurre la posizione di 


tutti gli atomi Difficile? Sì e no. 
Certamente la soddisfazione (e an¬ 
che il punteggio) è direttamente 
proporzionale al numero degli ato¬ 
mi da individuare (e inversamente 
al numero dei tentativi). Inoltre le 
situazioni prospettate nella figura 
rispecchiano casi elementari: in par¬ 
ticolari configurazioni il percorso 
della particella può essere così intri¬ 
cato da risultare perfino spettaco¬ 
lare. 

18 programma 

Sicuramente le regole enunciate 
sopra non bastano per un'acquisi¬ 
zione viscerale dello spirito del gio¬ 
co. Nel programma tale fase è cura¬ 
ta particolarmente: il principiante 
può scegliere il numero di atomi ( = 


livello) che compongono la moleco¬ 
la e “vedere” l'interazione con la 
particella scegliendo varie posizioni 
di entrata. Solo dopo questa fase 
comincia davvero il gioco: dopo la 
scelta del livello di gioco (all’inizio è 
meglio sia basso), il programma ge¬ 
nera (a caso) la molecola (3410- 
3510), ma senza visualizzarla, e la 
gestione passa alla routine generale 
(3010-3195). Il giocatore viene invi¬ 
tato a sparare il primo colpo (un 
numero compreso fra 1 e 40); dopo 
il controllo di quanto inserito (3030- 
3080), il programma prosegue alla 
subroutine 3210-3240, che trasfor¬ 
ma il numero inserito nelle coordi¬ 
nate della matrice che contiene la 
molecola, e infine alla subroutine 
3260-3399. 

Quest’ultima. composta da molte 


2850 GO SUB 3210 GO SUB 3260 
2860 IF n=tnt THEN RETURN 
2370 BEEP .2,20 PRINT 80, AT 1,0 
UADO AUANTI ? (s/n) 

M : PRUSE 0 

2830 IF INKEY$ = " n " THEN RETURN 
2890 NEXT n 
2900 RETURN 

2910 IF riga<21 THEN PRINT FLRSH 
f l a S h ,RT fìQ a + 1 . 0 . t (riga) : RETU 
RN 


2920 PRINT FLRSH 
9.7.t (riga) 

2930 R ETU RN 
3000H3M» Ruo t i ne 
3010 BEEP .2,10 


f i. a s h ; RT r i g a -1 


genera le 

PRINT FLASH 1,A 


T 2,14; "PUOI SPHRHRE ! , FLRSH 0 . 

it i « 


3020 GO TO 304.0 
3030 BEEP .5.-25 

304-0 INPUT i$ IF LEN i $ >2 OR i$ 
= "" THEN GO TO 3030 
3050 IF LEN i$ = l THEN GO TO 3070 
3060 IF CODE ì$ (2) <4a OR CODE ì 
$ (2) >57 THEN GO TO 3030 
3070 IF CODE ìj (li U9 OR CODE i$ 
(1) >57 THEN GO TO 3030 
3080 LET ì=INT (URL i$) IF i<l 
OR ì>40 THEN GO TO 3030 
3090 LET tn t =tn t +1 PRINT RT 2,1 
4, '* " : LET t (tot) =i : 

IF t n t <21 THEN PRINT RT tri t +1,0 
,ì GO TO 3105 
3100 PRINT RT tnt-19.7,i 
3105 IF ì rii p = 1 THEN GO TO 4050 
3110 LET siy=0 LET dX=0 LET dito 
=0 GO SUB 3210 GO SUB 3270 
3120 BEEP .2.30 PRINT 80;RT 1,0 
: "UUOI FARE UN'IPOTESI ? '(S/n)*' 1 : 
PRUSE 0 

3130 IF INKEY$<>"5" AND tnt<40 T 
HEN GO Tu 3010 
3140 GO TO 2510 

3170 BEEP .2.35 PRINT «O,RT 1,0 
UUOI LA SOLUZIONE ? (S/n) 

PRUSE O IF INKEY$<>"S" AND tn 
t<40 THEN GO TO 3010 
3180 OUER 1 GO SUB 3660 UUER O 
BEEP .2,40 PRINT 80 , AT 1,0,"U 
UOI LA DIMOSTRAZIONE ? (S/n)" P 

AUSE 0 IF INKEY $ < >" S " THEN GO T 
0 40 

3190 BEEP .5.15 GO SUB 2310 
3195 BEEP .4.1© PRINT «0,RT 1,0 


UN TASTO PER UN'ALTRA PARTITA 
PAUSE O GO TO 40 


3200 


REM 


Elaborazione mossa di 


entrata 

3210 IF ì<13 THEN LET dX=l 
a 1 = 1 : LET a2=0 RETURN 
3220 IF ì<21 THEN LET SU=1: 
a2 = i-12 LET a 1=0 RETURN 
3230 IF ì<33 THEN LET dX = -1 
al=i-20 LET a2=9 RETURN 
3240 LET SU = -1 : LET a2 = i-32 
a 1 = 13 RETURN 


3250 


REM 


F or n i azione 


delia 


traiettoria premessa 


3260 PLOT 163 +8 *a2,123-8 sai 


32651 


1) Inversione 


LET 

LET 

LET 

LET 


3270 IF l'(al>l AND a 1 < 12 AND (dX 
= 1 AND à2 <8 OR dX = -1 AND a2>D) 
OR (a 2 >1 AND a 2 < 8 AND ( S u=1 AND 
a 1<12 OR S u = -1 AND a 1 > 1) ) ) THEN 
IF m $ ( a 1 +s u +dx , a 2 +dx +s u ) = " 0 " AND 
m$(a1+su-dx.a2+dx-su)=”0" THEN 
LET rS=STR$ 1 GO TO 3383 
32?s Baaai 2) Dev1a z. sul bordo 
3278 LET b 0 r =1 

3280 IF su = 0 THEN GO TO 3290 
3285 IF (a 1=0 OR a 1 = 13) AND a2>l 
THEN IF rii $ (a 1+SU . aZ'-'l) ="0" AND 
m$ ( a 1+su , a 2) = " " THEN LET a 1= a 1 + 
su LET dirsi GO SUB 3392 LET 
SU = 0 LET d X =1 GO TO 3370 
3290 IF (a 1 = 0 OR a 1 = 13) AND a 2<3 
THEN IF rii$ (a1+SU . a2 + l) = “0" AND 
m$ (ai+su.a2)=" " THEN LET a 1=al + 
su LET dir=3 GO SUB 3392: LET 
su=0. LET dx=-l UO Tu 3370 
3300 IF (a2=0 OR a2=9) AND a 1 > 1 
THEN IF IV. $ (a 1-1 ,a2+dX ) ="0" AND rii 
$ (a 1.a2+dx) =" " THEN LET a2=a2+d 
X LET dir=2 GO SUB 3392 LET d 
X = 0 LET sU = 1 GO TO 3370 
3310 IF (a 2 = 0 OR a2=9) AND al <12 
THEN IF m$ (a 1 + 1 , 32+dX) ="0" AND 
m$(a 1.a2+dx)=" " then let a2 = a2 + 

dx LÉT dir=4 GO SUB 3392 LET 
dx =0 LET su = —1 GO TO 3370 
33l5BaiM 3) Deviazione ortogon. 
3320 LET b O r = 0 IF al>l AND (idX 
= 1 AND a2<8) OR l d X = - 1 AND a2>l) 

) THEN IF fi. $ (a 1-1 , a2+dX ) ="0" THE 
N LET dir=2: GO SUB 3392 LET dx 
= 0 LET Su =1 GU Tu 3370 
3330 IF al<12 AND t(dX=l AND a2< 


( continua) 
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8) OR (dX=-l AND 52 >1) ) THEN IF 
fiì $ (3 1 + 1 . 32+d X ) ="0" ThEN LET dif = 
4 GO 5UB 3392 : LET dX=0: LET SU 
= -l GO TO 3370 
3335 IF 52<2 ThEN GO TO 3350 
3340 IF 52>1 AND ((SU=1 AND 5l<l 
2) OR • sU = -1 AND alvi) ) THEN IF 
ro$ (al+su , a2-l) ="0" THEN LET dir = 

1 GO SUB 3392 LET su=0 LET dx 
=1 GO TO 3370 

3350 IF 32 < 8 AND (iSU=l AND 51 < 1 
2) OR (SU = -1 AND 3l>m THEN IF 
«ì i (3 1+SU ,32 + 1) ="0" THEN LET dif = 
3. GO SUB 3392: LET SU =0 LET dx 
=-l G O T O 3370 
335Stt315B 4) Assorbimento 
3360 IF (SU =1 AND 3 1 <12 OR S U =-1 
AND a 1 > 1 OR dX =1 AND 3 2-;S OR dx 
= -l AND 32 >1) THEN IF fi'i $ (a 1+SU ..3 

2 + d X ) ="0" THEN GO SUB 3398 LET 
r i = " ASS": GO TO 3383 


REM 


3365 IF dim =1 THEN DRAU 3*dX , -8* 
su 

3370 LET 31=3 1+SU: LET 32=32+dX 
3375 IF al<>0 AND 31 <> 13 AND 32 < 
>0 AND 32 <>9 THEN GO TO 3260 
3330 LET r=tal AND 32=0) +>31+20 
AND 3 =! = 9 J + i. 3 2 + 13! H N D 31=0) + (a2+3 
2 AND 31=13) LET r$=STR$ f 
3363 IF dì m = 1 AND i»p=0 THEN PET 
URN 

3385 IF tn t <21 THEN PRINT AT tnt 
+1.3;r* RETURN 

3390 PRINT AT tnt -19,10; r$ RETU 


_ Su b i 
IF d i m =0 
IF bof=l 


RN 

33911 

3392 

3393 

s u 

3394 PRINT AT 
D ( (SU = 1 AND 
D dirsi)))+( " 
dirsi) OR (d x 
U" AND ( (SUsl 
1 AND dir=4)) 
AND dir=3) OR 

3395 IF dir=2 
0 3397 

3396 PLOT 167 
8+(32-1) AND 
AU i. 4 AND dir 

RETURN 

3397 PLOT 163 
d ì r =2) - (8* (3 

AU 0,(4 AND d 
RETURN 

3398 IF d i rii = 1 


outines 
THEN RETURN 
THEN DRAU 4*dX 


-4 * 


■- = 2 ) ) ) + (" 
OR ( d X = 


6+31,20+a2,("»" AN 
dir=l) OR (dx=-l AN 
1" AND ( ( S U = -1 AND 
=-l AND dir 
AND dir=3) 

) + ("IX" RND ( (SU = -1 
(dx =1 AND dir =2) ) ) 
OR dir =4 THEN GO T 

+ (8*32 AND dirsi) +( 
dir =3) ,123-8*31 DR 
= 1) -(4 AND dìr =3) ,0 

+8*32,119-(8*31 AND 
1-1) AND dir=4) DR 
ir=4) - (4 AND dir=2) 

THEN DRAU 4*dX,-4* 


■ u 


3399 

3400| 

3410 

3420 

3430 


DIM 

FOR 

LET 


ì V 


( RND *12) ,1 + INT 


RETU RN 

Generazione molecola 
m $(12.8) 
nasi TO l 
m $(1 + INT 
(RND*3))="G" 

3440 NEXT r. 

3450 LET atomi= 0 

3460 FOR n = 1 TO 12 FOR m=l TO S 
3470 IF m$ (n) (fu) ="0" THEN LET at 
omi= a tomi+1 
3460 NEXT m: NEXT n 
3490 IF 3 t 0 rii irli V THEN RETURN 
3500 LET m $(1 + INT 
(RND*3))="0" 

3510 GOTO 3450 


(RND*12),1+INT 


36001 
3610 FOR n 
l : POKE n . 
3620 DATA 
3625 DATA 
, 24 , 0 
3630 DATA 


Caratteri 
=65368 TO 
l NEXT n 
1 , 3 , 7 , 15 . 
255 , 255 


grafici 
65423 READ 
RETURN 
31,48.96.0 


43 


24 
16 
0 . ' 
16 
0 , : 


0 , 0,0 

3635 DATA 16,16 
3640 DATA 0,0,0 
3e>45 DATA 16,16 

3650 _DATA 0.0,0 

3655 ariosa uisualizz . 
3660 FOR rii =1 TO 12 
, 21. m $ (m ) NEXT rn 
3670 RETURN 
3900B33EB Istruzioni 
d e i g i o c o 

3910 BORDER 5 PAPER 5 

LS 


24,0.0,0 
8,7 , Ò , Ó , © 

, 8.16,16 
32,192,0.0.0 
92,32.16.16 
• rii o i e c o l a 
PRINT AT 6+rii 


e r e g o i e 


ink 0 


(continua) 


linee dall'aspetto inevitabilmente 
“mostruoso”, provvede a formare il 
percorso della particella. Vengono 
analizzati nell'ordine ì casi di inver¬ 
sione (3270), di deviazione sul bor¬ 
do della scatola (3278-3310), di de¬ 
viazione normale (3320-3350) e infi¬ 
ne di assorbimento (3360). Quando 
si verifica uno di questi casi vengono 
adeguatamente modificati i para¬ 
metri di direzione di moto della par¬ 
ticella; inoltre (escluso il caso di as¬ 
sorbimento) questa viene fatta 
avanzare di una casella. 

Tutto ciò si ripete finché la parti- 
cella non arriva al bordo della scato¬ 


la. Le coordinate della posizione di 
uscita vengono quindi trasformate 
nel numero scritto a fianco della sca¬ 
tola che viene stampato sulla tabella 
in USCITA. Dopo ogni tentativo si 
chiede al giocatore se desidera 
avanzare un'ipotesi (2510-2605): 
per fissare le idee è infatti utile piaz¬ 
zare qualche atomo “di prova”; fin¬ 
ché il loro numero non eguaglia il 
livello di gioco non viene neppure 
chiesto il confronto con la molecola 
vera. Inoltre questi atomi di prova 
possono venire cancellati o spostati: 
sono insomma a uso e consumo del 
giocatore. Alla richiesta del con¬ 


fronto con la molecola da indovina¬ 
re, l'utente, se ha eseguito meno di 
40 tentativi, può anche rifiutarsi; in 
ogni caso il confronto (2620-2630) 
non costa nulla, ma si può eseguire 
solo una volta dopo la mossa. 

Se il confronto dà esito negativo, 
il giocatore può arrendersi, caso in 
cui non gli viene assegnato alcun 
punteggio; viene invece visualizzata 
la molecola che avrebbe dovuto in¬ 
dovinare. Se il giocatore non si è 
ancora rassegnato al fallimento, 
può però chiedere al programma di 
visualizzare tutte le traiettorie 
(2810-2930). 
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Attacco atomico 

Variabili e matrici 

atomi: numero atomi generati; 
al, a2: coordinate, in m$, della posi¬ 
zione raggiunta dalla particella 
bor: =1 se si può avere una devia¬ 
zione sul bordo della scatola; 


= 0 quando la possibilità su 
esposta non può più verificarsi; 
dim: =0,1, quando il percorso della 
particella avviene rispettivamente 
senza o con visualizzazione; 
dx: =-1,0,1, quando lo spostamen¬ 
to della particella avviene rispetti¬ 


vamente a sinistra, in verticale, a 
destra; 

dir: parametro di direzione dopo 
l’interazione (se diversa dall’assor- 
bimento); 

= 1, 2, 3, 4. rispettivamente se 
la direzione è verso destra, basso. 



4-030 


3Q20 GO SUB -,_ 

3930 PRINT ';" Sex a capo della 
sezione fisi-ca dei gruppo di r 
ice rea operan-te sulla Luna." 
3940 print "una nube aliena si s 
ta avvicinando alla Terra: ecom 
p osta da nio -1e co le p rog r aroroa te a 
d aggregarsi in esseri nocivi a q 
u a i u n q u e a l -t r a f o r rii a vivente." 
3950 print " Per combattere que 
s ti esseri bisogna conosce r e ia 
struttura delle molecole. 5i s 
a che ne esistono dx 10 speci 
e diverse a seconda del num ero d 
x atomi (da 1 a 10 ) di cui sono 
compos te. " 

3960 print " Con appropriate pa 
rtice l le .sparate entro la moleco 
la ad una oppo r tuna ve io cita , s 
x puo'tenta-re di dedurre la pos 
xzxone de auato mx conf r ontando i 
i. pun to di en t r a ta con i i puri to 

3970^PRINT 80." PER CONTINUARE P 
REMI UN TASTO" PAUSE 0 
3980 C LS G0 SUB 4080 

I tuoi t e cnici s 
aspettano so io che 
in quale punto del 
sparare le partite 
circondata 
a n ceve re 
ise non viene asso 


3990 PRINT '; 
o n o prò n 1 1 
t u dica l o r o 
ta mo ieco la 
ile: quest'ul-tima e 
da rive la-tori pron 11 
la parti ce ita 
r bita) • " 

4000 PRint " Studierai una moie 
cola per v otta ( live i i o = n u m e r o 
a tomi) e puoi fare tu 11 i i te 
ntativi che vnoi . . . scelti con a 
s tuzia ! " 

4010 PAUSE 150 BEEP .5,20 
4020 PRINT UUOI STUDIARE I 

L MODO DI INTE - RAG IRE DEGLI ATO 
MI CON LA PAR- TICELLA ? ( S ,Ti ) " 

PAUSE 0 

4000 IF INKEY$ < >"S" THEN RETURN 
4040 CLS LET rec=0 GO SUB 501 
0 GO SUB 4810 GO SUB 4910 GO 
SUB 3410 GO SUB 3660 LET ìmP = 1 
GO Tu 3010 


INUER 


REA 

REA 

DRA 


4050 LET s U —0 LET dx=0 LET dim 
=1 Gu SUB 3210 GO SUB 3260 
4055 IF tnt=40 THEN GO Tu 3195 
4060 BEEP .2,40 PRINT 00,AT 1,1 
O. ANCORA ? (S/n)" PAUSE 0 

4070 IF INKEY$ < >"n " THEN GO SUB 

3 6O G 0 T 0 3010 
4075 RETURN 

4080 PRINT AT 0,28;"© £1 " ; 

SE 1 .AT 0,10 , "SCATOLA NERA 
4090 R ETU RN 
460Q BsUtiM Titoli 

4610 BORDER 1: PAPER 1: INK 6 C 

4620 PR INT BRIGHT 1 : AT 1,3 ; " 1K " , 
AT 2.3 . " n ' J " . AT 1,13; " i r'" ; AT 2,13 
; "HO" ,flj'4,0; " Ih. - , 5 .0; "NO" ; fiT 

4 7Ì9, " 4K — jAT 5.19, "HO",AT 3,27; 

" ih-,^7 4,27; "HU" 

4630 PRINT BRIGHT 1,AT 8,10,"4h" 

; AT 9,10 ;"HU",hT 8,19 ; "in" , AT 9 , 
•19 , -HO" , or 12.21, "Ih"; AT 13,21," 
mu";at i5,0;" iK ";AT 16,0; "»'■>" ; AT 
~ 13 '. 18 . " 1I<" . AT 19.18, ; AT 18 . 

27 , " 1K , AT 19.27, "MU" 

4640 INK 4 FOR rii = 1 TO 12 
4650 READ a READ b READ c 
D d READ e READ f: READ 9 
D h 

4 6F .0 PLOT a,b FOR n = l TO C 
g d ,e BEEP .04.40 NEXT n 
4670 BEEP .04,40 PRINT AT f,g,C 
HP$ h NEXT r.i 

4680 DATA 43,0.18.0.3,3,5,148 
4690 DATA 47.147.6,8,0,3,12,150 
4700 DATA 99.143.3,0,-8.7,12,147 
4710 DATA 103.115.5,8,0,7,18,149 
4720 DATA 143.123.0,0,0,6.18,150 
4730 DATA 143,123.15,-8,0,6,2,14 
8 

4740 DATA 19.119,7,0,-8,14,2,147 
4750 DATA 23.59,17,8,0,14,20,150 
4760 DATA 163,55,2,0,-8.17,20,14 

4770 DATA 167,35,5,8,0,17,26,149 
4780 DATA 211.39 . 11,0,8,5,26,150 
4790 DATA 207,131,5,-8,0,5,20,14 

4795 BEEP 2,10 PRINT INK 5 ;AT 1 
3.3 ; " dì A. Fu rian " , flash 1, BRI 
GHT 1 .AT 11.8: "SCATOLA NERA": PA 
USE 300 RETURN 

4800 Oa=rca Inizializza 2 . va ri ab. 
4310 LET n =0 LET rii =0 
4820 LET tnt=0 LET 1 rii P =0 
4330 DIM P $ ( 12.3) : LET tentati:© 
4340 RETURN 

4900 KHBÌ Indicazioni e scelta 

I 1 É I. I IJ 

4910 PRINT AT 0.29 ; ”©£1 " ; BRIGHT 
1; INUERSE 1,AT 0,15,"SCATOLA N 
E Rh " 

4 A 2 0 PRINT FLASH 1 ;AT 2,14, "LIUE 
LLO'- i 1 — 10) INPUT l ì V : LET liV 
=INT liV 

4930 IF l iV <1 OR l iV>10 THEN BEE 
P .5,-25 GO TO 4920 
4A4 0 PRINT AT 21 . 14. "LIU = ", 11V,A 
T 2,14.;" " ; AT 4,14 

; "REC = ".ree 
4950 DIM t(40) 
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sinistra, alto; 

flash: =1,0, usato per far lampeg¬ 
giare o meno durante la “dimostra¬ 
zione”; 

i$: contiene il numero di entrata nel¬ 
la scatola; 

imp: =1,0, rispettivamente se il gio¬ 


catore deve o non deve imparare le 
regole del gioco; 

m$(12,8): molecola da indovinare; 
p$( 12,8): molecola ipotizzata; 
pri: prima coordinata ipotizzata; 
pun: punteggio della partita; 
riga: posizione (relativa), sulla ta¬ 


bella dei tentativi, dei numeri di 
entrata; 

ree: punteggio record; 
su: =-1,0, 1, per traiettoria diretta 
rispettivamente verso l’alto, in oriz¬ 
zontale, verso il basso; 
sec: seconda coordinata ipotizzata; 
s$: contiene il simbolo da stampare 
sulla “scatola” durante l'inserimen- 
to dell'ipotesi; 

t(40): contiene i numeri di entrata 
dei tentativi; 

tnt: numero tentativi eseguiti dal 
giocatore; 

tentati: numero atomi ipotizzati. 


Anacleto Furlan 



4-960 R ETU RN 

5000BSS3B1 Tabella e indicar 
5010 PLOT 167 , 23 OPALI 65.0 
LJ 0.97 OPALI -65.0 DRflU 0, 
5020 PLOT 163,19 ORALI 73.0 
U 0 . 105 ORALI -73.0 ORALJ 0 
5030 PRINT AT 4- . 2 Ì , "1111111 
5,21; "34.567890" 

504-0 FOR n =1 TO 9 PRINT AT 
,AT 6+n .30;20+n: NEXT n 
FOR n =10 TO 12 PRINT 
nAT 6+n,30 . 20+n NEXT 
PRINT hT 20.21 ; "333333 
.21; ”34-567890" 

FOR n=l TO 12 FOR fu = 1 



ì 0 n i 
ORA 
-97 
: ORA 
, -105 
2 ; ht 

6 + n , 

AT 6 + 
n 

34-" ; A 


01 


TO 3 
PRINT AT 6+n.2 


5160 RETURN 


rii NEXT n 
Tabelle di prova 
2O.0 ORALI 0,175 
76.0 ORALI 0,175 
0 . Ì64- ORALI 40.0 
55 164 ORAI) 40.0 
HT 0,0."EN",AT O 
"EN" ; AT 0,10;"US" 


.3; "U 


Questo programma è disponibile 
su cassetta. 

L'elenco, i prezzi e le modalità 
d ordine di questa e delle altre cassette 
disponibili sono riportati alle 
pagine 81 e 82 . 








Novità !! Lo Spectrum maggiorato !!! 


Trasforma il tuo Spectrum 
in Spectrum + 




Space bar 


Caps shift 

Punto i 
e virgola 


Delete 


Full stop 


Apice Controllo cursore Virgola 


Tastierà professionale Sinclair con 
17 tasti extra. 

Si usa come una normale 
macchina da scrivere. 
Compatibile con tutto il software 
e le periferiche Spectrum. 
Completo di una guida 
di 80 pagine più una cassetta 
dimostrativa. 


True video 


Inverse 

video 


Graphics 


Edit Caps lock 

Break 


indair - 


Ecco una novità stimolante per i possessori di Spectrum: 
il Kit originale Sinclair che promuove lo Spectrum al 
grado superiore. 

Non si richiede vasta esperienza. Basta saper saldare 
pochi fili. 

Nel Kit sono contenute chiare istruzioni in italiano. 

La tastiera dello Spectrum + 

Le dimensioni dello "Spectrum +„ sono 320x 150x40. 

La tastiera, di tipo dattilografico, ha solidi tasti anturio. 

Il suo uso è morbido e ideale per la scrittura al tocco, per 
il word processing, per i programmi di simulazione e 
i programmi avanzati. 

Vi sono 58 tasti, di cui 17 rappresentano delle novità. 

I programmatori avranno la gradita sorpresa di trovare i 
tasti della punteggiatura e, a parte, i tasti "shift,, per i grafici 
e gli "extended modes,.. Il tasto di reset consente di 
cancellare un programma dalla memoria del computer 
senza scollegare l'alimentazione. 


Lo Spectrum maggiorato 

Naturalmente il computer di grado superiore accetta 
tutte le perifenche del Sinclair System-lnterface I, 
i Microdrives, eccetera, come pure tutto il software 
Spectrum. 

I nuovi software e le nuove periferiche 
Spectrum saranno progettati tenendo 
conto dello Spectrum 4 -, cosicché lo 
Spectrum accresciuto di grado avra 
nuove capacità e potenziate nuovo per 
il futuro, oltre ad essere stilisticamente 
fantastico!!! 



Il Kit contiene te istruzioni per 
l'assemblaggio, il manuale e la cassetta 
«demo didattica» in italiano 



In vendita presso i rivenditori specializzati 









































SOLUZIONI 


Metti 
i dubbio 
nel 


Diesel o benzina? 
Questo è il 
rovello. Se poi 
sarà bianca o 
rossa, a due, 
quattro o cinque 
porte, 

metallizzata o 
meno, si vedrà. 
Essenziale, 
prioritario, 
determinante è il 
motore. Come 
sceglierlo? 
Chiedendoagli 
amici, guardando 
i giornali, 
facendo testa o 
croce? O, meglio, 
affidandosi al 
giudizio del 
computer? 



motore 


Q uello che taglia la testa al to¬ 
ro di solito è il superbollo: se 
fai tot chilometri aH’anno lo am¬ 
mortizzi, se no non conviene. I pa¬ 
titi dell’argomento, comunque, 
non si accontentano di quest’unico 
criterio e, senza scoraggiarsi, con 
conteggi tanto complessi quanto 
approssimati, insistono nel recla¬ 
mizzare il motore a gasolio o quel¬ 
lo a benzina. Nascono così discus¬ 
sioni snervanti tra sostenitori dei 
due opposti partiti: si sottolinea da 


un lato la robustezza, si evidenzia 
dall'altro la lentezza, si loda la mi¬ 
nor tossicità, si lamenta la puzza... 

Pregi e difetti da una parte e 
dall’altra, rischi e convenienze: 
cosa scegliere? 

Al di là delle simpatie personali 
ed evitando confronti sulle presta¬ 
zioni, un criterio c’è: quello, al 
quale tutti sono in fondo sensibili, 
dei costi reali. 

A determinare il costo di un’au¬ 
tomobile concorrono molti fattori: 


prezzo di acquisto, bollo e assicu¬ 
razione, tipo di carburante e suo 
costo, consumi, chilometraggio 
annuo, tempo di vita... E necessa¬ 
rio confrontare tutte queste varia¬ 
bili. e il loro reciproco influenzar¬ 
si, per poter valutare l’economici¬ 
tà di una vettura rispetto a un’altra 
e. in particolare, di una con moto¬ 
re diesel rispetto a un’altra con 
motore a benzina. 

Non occorre però aspettare di 
avere un sabato libero per imbar- 
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Metti un dubbio nel motore 


Listato 


1 REM 'CONVENIENZA' 

5 PRINT CHR»(147) 

10 PRINT'....' 

15 PRINT TAB(8);'C 0 N V E N I E N Z A" 

20 PRINT 

25 PRINT'.-.' , 

30 PRINT" QUESTO E‘ UN PROGRAM^ DI CONVENIENZA." : PRINT 
35 PRINT' IL SUO FUNZIONAMENTO E' BASATO, SULLA 8 SPRINT 
40 PRINT" SCELTA TRA L'ACQUISTO DI UN'AUTOMOBILE'SPRINT 
45 PRINT" CON MOTORE DIESEL 0 BENZINA. L'AUTO IL"SPRINT 
50 PRINT" CUI COSTO TOTALE SARA MINIMO RISULTERÀ"SPRINT 
55 PRINT • ESSERE L'AUTO PIU' COWENIENTE:PRINT:PRINT 
60 PRINT TAB'.ó) ;'BATTI <RETURN> PER INIZIARE* SPRINT 
75 INPUT A$ 

90 IP A* = aa THEN PRINT CHR$(H7):G0T0 90 
85 IF Al <)*» THB4 STOP 
90 PRINT TAB<9) ; “A U T 0-D I E 3 E L'SPRINT 
95 PRINT"***»**»*******»****************»********' 

100 PRINT TAB<3) ;“COSTO D ACQUISTO" SPRINT 
105 INPUT AD 

110 PRINT".' 

115 PRIfT TA8(3) : “TASSA DI CIRCOLAZIONE' SPRINT 
125 INPUT CD 

130 PRINT".—.-.‘ 

135 PRINT TAB<3);“ASSICURA2IONE ANNUALE"SPRINT 
140 INPUT DD 

145 D RINT*....-* 

15C PRINT TA6<3);'CONSUMO KM/L"SPRINT 
155 INPUT ED 

140 PRINT".' 

165 PRINT CHRK147) 

170 PRINT TAB(9);“A U T O-B E N 2 IN A"SPRINT 
175 PRINT"********************************»*******" 

180 PRINT T AB(3):"COSTO D'ACQUISTO"SPRINT 
185 INPUT AB 

190 PRINT*.-.’ 

195 PRINT TAB<3)‘TASSA DI CIRCOLAZIONE"SPRINT 
200 INPUT CB 

205 PRINT'." 

210 PRINT TAB(3);"ASSICURAZIONE ANNUALE"SPRINT 
215 INPUT DB 

220 PRINT"-.-.* 

225 PRINT T AB<3):'CONSUMO KM/L'SPRINT 

230 INPUT EB 

235 PRINT'.-.” 

240 PRINT CHRK147) 

245 PRINT TAB<10);“DEVI INSERIRE ANCHE’SPRINT 
250 PRINT"****************************************' 

255 PRINT TABU);'COSTO DEL GASOLIO AL LITRO"SPRINT 
260 INPUT LD 

2ó5 PRINT*_ 

270 PRINT TABU);'COSTO DELLA BB42INA AL LITRO"SPRINT 
275 INPUT LB 

230 PRINT 11 _ 

285 PRINT TAB(l):'QUANTI CHILOMETRI PERCORRI IN UN 
AH40’" SPRINT 


290 INPUT K 

295 PRINT'.-.-..* 

300 PRINT TAB(3);“QUANTI AMI PENSI DI UTILIZZARLA ?" 

SPRINT 
305 INPUT T 

310 PRINT'..---" 

315 T DL =<LD/ED*K*CD+DD)*T+AD 
320 TBA =(LB/EB*K+CB+DB)*T+AB 
325 IF TDL > TBA THEN GOTO 340 
330 IF TBA > TDL T HB'I GOTO 345 
335 IF t|) l = TBA THEN PRINT CHRIU47) ;G0T0 405 
340 RB = TDL-TBASPRINT CHRIt147): GOTO 350 
345 RD = TLSPRINT CHR$<147):GOTO 380 
350 PRINT'FATTI 1 CONTI TI GOMENE ACQUISTARE"SPRINT 
355 PRINT"L AUTO A BENZINA. IN QUANTO NEGLI AMI"SPRINT 
360 PRINT'Dl VITA DELLA TUA AUTO Al COSTI ATTUALI": 
PRINT 

365 PRINT"RISPETTO AL MODELLO A GASOLIO PUOI"SPRINT 
370 PRIMARI SFARMI ARE lIRE";RB 

375 PRIN T TAB< 17) ;".—' :GOTO430 

380 PRINT*FATTI I CONTI TI CONVIENE ACQUISTARE"SPRINT 
385 PRINT B L AUTO DIESEL, IN QUANTO NEGLI Affli DI"SPRINT 
39? PRINT-VITA DELLA TlJA AUTO RISPETTO AL MODELLO": 
PRINT 

395 PRJNT"BENZINA PUOI RISPARMIARE LIRE';RD 

400 PRINT TA8C30);'.'sGOTG 430 

405 PRINT*==== -^== =======" 

410 PRINT TA8(53;'*TUTT0 TEMPO BUTTATO I PREZZI*'SPRINT 
415 PRINT TAB(5>;'*DIESEL E BENZINA SONO UGUALI*" SPRINT 
420 PRINT’ ================================ “ 

425 GOTO 430 

430 PRINT SPRINT SPRINT sPRIfTT 

435 PRINT TAB(8)j'VUOI CONTINUARE (S/N) ?' 

440 PRINT TABU); 9 .-. 

445 INPUT 0* 

450 IF 0» = "S* THEN PRINT CHR$f147): GOTO 10 
455 IF 01 = "N" THEN STOP 
460 STOP 
READY. 



carsi in un mare di conti, basta 
usare un programma semplice 
semplice e preciso preciso: "diesel 
o benzina?". 

Come funziona 

Lo scopo del programma è quel¬ 
lo di confrontare le caratteristiche 
di due automobili e di scegliere la 
più economica, quantificando il ri¬ 
sparmio che essa renderà possibile 
rispetto alla "concorrente". I calco¬ 
li. naturalmente, sono tutti affidati 


al computer, che li esegue con sor¬ 
prendente rapidità; chi Io interro¬ 
ga deve semplicemente inserire di¬ 
ligentemente la serie di dati che 
via via gli vengono richiesti: costo 
d'acquisto, tassa di circolazione, 
assicurazione eccetera. 

La sentenza del computer, a 
confronti fatti, è mirabilmente 
chiara ed esaustiva: ti conviene ac¬ 
quistare questa, perché negli anni 
in cui intendi usarla risparmierai 
tot milioni Sempre che non riu¬ 
sciate a proporre al cervellone due 


alternative ugualmente conve¬ 
nienti! In questo caso apparirà una 
scritta un po' spazientita ("tutto 
tempo buttato, diesel e benzina 
sono uguali") con cui il computer 
vi inviterà a risparmiargli inutili 
sforzi matematici... 

Benito Notari 


Questo programma è disponibile 
su cassetta 

L'elenco, i prezzi e le modalità 
d'ordine di questa e delle altre cassette 
disponibili sono riportati alle 
pagine 81 e 82. 
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H.«3k sysU-m 


floppy 


spectrom 


SINCLAIR 7X SPFCTRUM & ACCESSORI 


QL . . L 1 .1.50 000 

SPECTRUM 48K: L. 395.000 

INTERFACE 1 : inter RS232 indispensabile 

per il collegamento del microdrive L. 165.000 

MICRODRIVE: drive per micro cartucce on- 

gingie Sinclair L. 155.000 

SUPERFACE: sim vocale + gen. di suoni 


ampi sonoro + interfaccia loystick e registrato¬ 
re L. 145 000 

TAVOLETTA GRAFICA: consente di co¬ 
struire immagini grafiche in alta risoluzione L. 165.000 
TASTIERA: con pad. numerico può alloggia 
re aiuti, ed eventuali interfacce L. 140.000 

MODEM: rivoluzionario strumento di comuni 
cazione tramite linea telefonica. L. 155.000 

VENDITA PER CORRISPONDENZA PRESSO 


NUOVO SPECTRUM PLUS 48K L 495 000 
EPROM PROGRAMMER: può program 
mare 2716/ 2732/ 2764/ 27128 completo di 
software. L. 270.000 

INTERF. RS232: adatta per collegare 
stampanti modem, plotter ect_ L. 90.000 

INTERF. CENTRONICS: adatta per colle¬ 
gare qualsiasi stampante professionale. L. 120.000 

INTERF. JOYSTICK: programm senza au¬ 
silio di software ne hardware. L. 69.000 

JOYSTICK: L. 23.000 

ESPANSIONI 48K: L. 75.000 

Per tutto il materiale non elencato (monitor, 
stampanti, software... ect) richiedere il catalogo. 

IVA 18% ESCLUSA 


NOVITÀ!!! 

FLOPPY DISK DRIVE PER SPECTRUM 



CARATTERISTICHE PRINCIPALI 


Versione da 3" e 5" da 100 a 800 kbytes 

- Sistema operativo in rom non utilizza spazio in ram 

- Possibilità di collegare fino a quanto drive con una interfaccia (3,2 mega- 
bytesj 

- Facile conversione di programmi. Modello da 100 kbytes L. 610.000 


VENDITA DIRETTA PRESSO 

SANDY COMPUTER CENTER 

PERSONAL COMPUTER PROOUCTS SRL VIA ORNATO 14-TEL. 02-6473621 

‘Via Monlerosa 22 Senago (MI) tei 02 9989407 MILANO 


BELLUNO - CBLCOMPUTERS P.zza S. Stefano. I tei 0437-212204 

NAPOLI - (LAmP/TlLÌ./) Vico Acitlio. 71 tei 081 657365 
NOVARA - SYtLCO Via S.F d'A ssisi. 20 tei. 0321 27786 
TRIESTE - C.R.S. GASPARIM Via Paolo Rei,. B tei. 040-61602 


SPECTRUM E SINCLAIR SONO MARCHI REGISTRATI 
DELLA SINCLAIR RESEARCH L T D 
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GAMES 


Vincere o perdere, in pochi secondi, 
migliaia di dollari: un'emozione 
insuperabile che appartiene al mondo 
esclusivo delle più lussuose sale da 
gioco... Ma se di gioco si tratta, perché 
non giocare fino in fondo? Anche in casa 
propria è possibile sfidare la fortuna... 


/ 


Per mille dollari 


in più 


P er chi è abituato a giocare a carte 
puntando mille lire e a mettere 
in palio per la tombola solo qualche 
caramella, il mondo insidioso delle 
tintinnanti sale da gioco california¬ 
ne profuma probabilmente di folle e 
di proibito... Un mondo al quale 
appartengono pile di gettoni che 
passano di mano, tappeti verdi su 
cui i dadi rotolano senza rumore, 
croupier corrotti e imperturbabili e, 
infine, la grande protagonista delle 
nervose e solitarie notti di Las Ve¬ 
gas: la slot machine, mai stanca di 
ingoiare monetine che poi, a chi ha 
fortuna, restituisce tutte insieme, in 
mucchi favolosi. 

Il gioco 

Anche il gioco al computer ha le 
stesse caratteristiche di quello vero: 



Listato 


1 PRI NT " ad".; CHR$ < 8 > PQKE36873 .• 72 PRI NT 

2 PRINT">ÌM£ /s i "T r . . . . ~ 

3 PRINT"*Ì»I8 \ I III j# ( é \ \ III >*■ 

I pri nt•■!!»» " ^ ’ * 1 2 3 # mmmmmmmmmì" 

7 PR I NT " WiMiiWSlIflCH I NE 
9 PRINT"MMS»##BV M & D CEFALO###" 

19 32=36875 V=36878 P0KEV.15 RERDP 

20 IFP=-1THEN31 

25 RERBD P0KES2, P FORN= 1 TOD NEXTN P0KEo2 .■ 0 
30 F0RN=1T020 NEXTN GOTO19 


semplicissimo e molto breve, si con¬ 
tinua a ripeterlo con ostinazione 
quasi maniacale ed è in grado di ri¬ 
durre sul lastrico chiunque. Dopo 
una breve presentazione a suon di 
fanfara, il computer spiega veloce¬ 
mente il gioco, dice quali sono i tasti 
da utilizzare (FI e F3) e stampa sul 
video la slot machine; il nome del 
giocatore viene visualizzato in alto a 
sinistra, i suoi alti e bassi finanziari 
in alto a destra. 

Ogni volta che si abbassa il brac¬ 
cio della slot machine cambiano i tre 
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Per mille dollari in più 


31 G0T032 

32 DRTR225,360,225,360,225,240 

33 DATR228,120,231,360,231,240 

34 DRTA228,120,231,240,232,120 

35 DRTR235,720,240,360,235,360 

36 DRTR231,360,225,360,235,240 

37 DRTR232,120,231,240,228,120 

38 DRTR225,480 DRTR-1 

42 PRI NT " *' 

43 P0KE36879,8 

45 PRINT"i8SI2Wn f=*LTI \f-h/T»" 

46 PRINT"WrEI NEL ORSI NO" l'I LfiSWxEGAS, DEVI 
CERCRRE DIJ!I VINCERE PIU' «SOLDI POS» SI BILI" 

50 FORT=1TO3300 NEXTT 
52 PRINT"»«ai .C/* -T —I t/* \ 1 1 ' " 

55 FORT=ITO1000 NEXTT 
60 POKE198,0 

70 INPUT \Ttì«JiMBIL TUO NOME",$$ 

80 IFLEN(S$)>8THEN70 FORT=1TO100 NEXTT 

90 PRINT"MSF3S PER INIZIARE", "JflSFlS PER TIRARE" 

100 GETR4 IFR$=""THEN100 

110 IFfi$<>"■"THEN130 

120 IFfì$<>" ■" THEN140 

130 GOTO100 

140 PRINT"CJSEI PRONTO?" FGRT=1TO1000 NEXTT 
PRINT"JffltìSUWv’Ifl* ! ! !" 

141 FORT =1T0850 NEXTT 
150 PRINT"13" 


160 

170 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 
210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 
223 


B=0 

P0KE36879,110 
LETD=D+100 
PQKE36877 , 220 
F ORL=15TO0STEP-1 
P0KE36878 , L 
FORM 3 ITO150 
NEXTM 
NEXTL 

P0KE36877,0 
P0KE36878,0 

PRINT" I PREMI 'FI'" 
POKE198,0 GQT0191 
D=D-10 GOTO191 

GETR4 IFfl$=" "THEN191 IFfi$="■" THEN192 

P0KE36878,15 

FORL=1TO10 

P0KE36876, 1 NT < RND <1 ; *1 28) +1 28 

F ORM=1TO10 

NEXTM 

NEXTL 

PQKE3631' ó, 0 
POKE36878,0 


PRINT"iCTT'Sf GOSUB500 
LE TR= INT < RND (1> *3+ 1 ) 
LETB*INT<RNIK1>#3+1> 

LETC*INT<RND<1 >#3+1 > 

IFR=1THENP0KE7856+7,83 
IFB=1THENPOKE7856+10,83 
IFC=1THENP0KE7856+13,83 
IFR=2THENP0KE7856+7,65 
IFB=2THENPÙKE7856+10,65 
IFC=2THENPÙKE7856+13,65 
IFR=3THENP0KE7856+7,90 
IFB=3THENP0KE7356+10,90 
IFC=3T HENPOKE7856+ 1 3,98 
I FR=BRNDR=CRNDB=CTHENPR I NT " DMlMiaiHA I 
GOSUB100O 


VINTO!" 
(coni mini) 


simboli raffigurati nelle finestrelle: 
se il giocatore non realizza una delle 
tre possibili combina/ioni vincenti, 
perde dieci dollari; se, invece, ci rie¬ 
sce. ne vince cento. 

Naturalmente c’è un limite a tutto: il 
computer è disposto a farvi credito 
solo fino a mille dollari e a darvene 
in premio fino a un massimo di 
tremila. 

Se quindi state perdendo a più non 
posso, siate pronti al peggio: giunti 
a quota meno mille verrete ignomi¬ 
nifisamente dichiarati fuori gioco; 
se, al contrario, la fortuna vi sorri¬ 
de, ricordatevi che tre bigliettoni sa¬ 
ranno la vostra massima vincita: 
non è facile sbancare il VIC... 

Il programma 
riga per riga 

"Slot machine" è un programma 
adatto anche ai neofiti del personal 
computer, perché è molto breve e 
non presenta nessuna difficoltà, 
tranne, naturalmente, richiedere 
come ogni altro un po’ di attenzione 
in fase di copiatura. Queste le prin¬ 
cipali funzioni: 


1 -9 schermata di presentazione del 
gioco; 

12-38 lettura delle note ed esecu¬ 
zione della musica iniziale; 

43-60 spiegazione del gioco; 
70-199 richiesta del nome del gio¬ 
catore, inizializzazione dei vari regi¬ 
stri del suono e spiegazione dei tasti 
da utilizzare, 

210—213 generazione di una combi¬ 
nazione di numeri casuale; 
214-223 stampa dei vari simboli e 
controllo della combinazione; 

224 -307stampa del punteggio e ge¬ 
nerazione di alcuni effetti sonori; 
308-402 controllo della vittoria o 
della sconfitta del giocatore e stam¬ 
pa dei relativi messaggi, generazio¬ 
ne di un menù di opzioni per il pro¬ 
seguimento del programma; 

500-1010 subroutine di stampa del¬ 
la slot machine e ritorno al program¬ 
ma principale (210). 

D.eM. Cefalo, 
VI. Vernetti 


Questo programma e disponibile 
su cassetta 

L elenco. i prezzi e le modalità 
d ordlnedi questa e delle altre cassette 
disponibili sono riportati alle 
pagine 81 e 82 
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224 LETIi=D+l 

225 PRI NT " TU III 11 rrrTTXTTTITlT»Mi**Ì»ÌI", H ; " $ " : 
IFD>300Q1HEN300 

226 I FD<.~1000 THEN400 

227 IFfì-BfiNDfl=CflNIiB=CTHEN180 

228 IFAOBORROCORBOCTHEN 190 

229 POKE198,0 GOTO191 

300 PRINT'TM" P0KE36879,8 

301 P0KE36878,15 

302 F0RL-1T010 

303 FORMAI80TO235STEP-2 

304 P0KE36876,M 

305 F0RN=1TO10 

306 NEXTN 

307 NEXTM 

308 P0KE36876,0 

309 FORM—1TO10 

310 NEXTM 

320 NEXTL 

321 P0KE36878,0 

322 PRINT":i!M?M!!Wi!t3EI DAVVERO UN GRANDE " 

330 PR I NT "AU»»Ì»ÌiaCflMP I ONE " 

331 PR I NT " WII L TUO GUADAGNO E DI" F’R I NT " nTStf " , D 
333 FQRT=1TO1000 NEXTT 

335 PRINT'MJPEREMI UN TASTO" 

336 GETA$ IFA$=""THEN336 IFfl$="W"THEN337 

337 PR I NT " □«JPZION15"," SidBlfPl > FINI RE ", " > 

INIZIARE" 

338 FORT= 1 TO 1000 NEXTT INPUT " aWDMSUALE OPZIONE" , X$ 

339 I FX$-C> " 2 " THENEND 

340 IFX$<>"1"THEN70 

400 PR I NT ":}*" PQKE36879,8 

401 PRINT"NON TI SEMBRA CHE PERDI" : PRINT"TOPPO TI 
CONVIENE RITI" 

402 PRINT"PARTI OGGI SEI TROPPO SFORTUNATO" 

PRINT "MJPERD I $ ", D G0T0333 


500 PRINT"5ì«® l T 

510 PRINT' 

511 PRINT' 

520 PRINT' 

521 PRINT* 

522 PRINT* 

523 PRINT* 

524 PRINT* 

525 PRINT* 

526 PRINT* 

527 PRINT* 

528 PRINT* 

529 PRINT* 

530 PRINT* 

531 PRINT* 

532 PRINT* 

533 PRINT* 

534 PRINT* 

535 PRINT* 

540 PRINT* 


! - 

. I 

I I i—i i—i i—i 

II INNI 

I | i_ i i_i i_i 


I I 

a m. 

i 



900 RETURN 


A 

1 I 
I I 
I I 
I I 
I I 
I I 


I I 
I I 
I I 


I I 


1000 F ÙRX-OTO130 P0KE36879,X : NEXI PURE368 79,110 
1010 RETURN 

1020 REM BV M & D CEFALO 
1030 REM TEL. 8252503 
1040 REM AND MARCO VERNETTI 

1050 rem 

*************** 


READY. 



Se non vuoi 
digitare... 


... la cassetta puoi comprare. 
Sì, RadioELETTRONICA& 
Computer offre un nuovo 
servizio ai suoi lettori: 
alcuni programmi 
pubblicati su questo 
numero sono 
disponibili su cassetta. 

Si tratta di listati spesso 
lunghi e complessi, e se vuoi 
evitare di trascriverli, puoi 
chiederci la cassetta già 
pronta e provata, 
senza errori. 

Al prezzo di costo. 



PROGRAMMI 
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HBHU 1 PRIHCIPftLB 

T BOVI I II OBOLI IHBIBHI 
OPCHAZI OHI TRW IHSI6HI 
• RPPLICRIIOHI PRRIirUE 


Tutti insiemi, 
appassionai 


Spectrum 
48 K 


SCUOLA 

Quali sono gli 
elementi che 
formano l'insieme 
A? Cosa accadrà 
sommando 
questo insieme 
con l'insieme B? 
Che cosa sono 
l'intersezione, la 
differenza 
simmetrica e il 
prodotto 
cartesiano? 
Insomma, a cosa 
serve 

l'insiemistica? 


c 


un 


I più giovani ne hanno sentito par¬ 
lare diffusamente già da bambini, 
quando la loro maestra decise che 
forse, per far capire un po’ di mate¬ 
matica alla sua scolaresca, conveni¬ 
va usare un metodo nuovo. Da allo¬ 
ra l’insiemistica ha fatto passi da gi¬ 
gante, e oggi compare ufficialmente 
nei programmi ministeriali. Ma, 
bambini delle elementari a parte, 
qual è l’utilità di questa branca della 
matematica? E perché vale la pena 
di insegnare concetti e funzioni al 
personal computer? 


La teoria degli insiemi, oltre a es¬ 
sere uno dei più importanti e com¬ 
pleti argomenti di matematica gene¬ 
rale (sviluppa concetti che sono pre¬ 
messa per qualsiasi studio di calcolo 
combinatorio, di funzioni, di filoso¬ 
fia matematico-geometrica eccete¬ 
ra), sta diventando sempre più se¬ 
guita nei campi applicativi profes¬ 
sionali (indagini statistiche, defini¬ 
zioni strategiche, politiche, econo¬ 
miche eccetera) perché sulla base di 
pochi ma essenziali concetti permet¬ 
te anche ai meno esperti di materna- 


OPtRRIIOMI TRR I MS I EH * 


I HTBRKCr I OHE 1 


D I PFtttrH;:» 


i I i I i I I I miri r i cm 


PRODOTTO CflIlT Bfi I ANO 
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amente 


tica di determinare, ridefinire, ri¬ 
comporre, assemblare tra loro grup¬ 
pi di elementi accomunati da una o 
più proprietà logiche. La teoria di 
premessa relativamente accessibile 
e contenuta e le vastissime possibili¬ 
tà di applicazioni nella pratica fanno 
della teoria degli insiemi un indi¬ 
spensabile strumento per gestire 
con razionalità ed efficacia le più 
moderne metodologie di studio e di 
applicazione. 

Questo programma propone in 
modo dettagliato (e tuttavia accessi¬ 
bile anche ai meno esperti) i concet¬ 
ti più importanti della teoria degli 
insiemi, trattando con particolare 
completezza tutta la parte relativa 
alle operazioni tra insiemi, che è ad¬ 
dirittura integrata da una serie di 
routine intelligenti che permettono 
di impostare e risolvere in brevissi¬ 
mo tempo qualsiasi problema a esse 
relativo. 

Un esempio di applicazione prati¬ 
ca? Eccone uno semplice semplice. 


Figura 1 


OPERAZIONE 

RISULTATO OTTENUTO 

SIMB. 

NOME 

; - tale che E - appartiene non appartiene | 

U 

UNIONE 

A U B = (X; XEA e/o XEB) 

n 

INTER¬ 

SEZIONE 

A n B - (X; XEA e XEB) 

— 

DIFFERENZA 

A - B = (X; XEA , X*B) 

A 

DIFFERENZA 

SIMMETRICA 

A A B = (X; XEA o XEB, ’XJÉA fìB) 

X 

PRODOTTO 

CARTESIANO 

AXB - ((a,b); aEA, bEB) 


Per realizzare un kit B occorrono 
invece: 


1 transistor BC 237 B 
1 integrato 7805 
1 diodo 1N4148 
1 diodo 1N4001 
1 TL 081 


1 quesiti sono i seguenti: se un hob¬ 
bista vuole realizzare entrambi i kit, 


primo quesito si può rispondere con 
l’operazione della UNIONE, che 
darà il seguente responso: transistor 
BC 108, integrato 7805, resistenza 
da 100 Kohm, condensatore da 100 
uF, diodo 1N4148, transistor BC 
237 B, diodo 1N4001 e TL 081. Il 
secondo quesito va invece risolto 
con PINTERSEZIONE: il risultato 
è: integrato 7805 e diodo 1N4148. 
Per il terzo quesito si usa la DIFFE- 

D C M 7 A QTN/INyfPTR IP A nttpnpn- 



tanto per “farsi la mano”. che componenti deve acquistare. 

Per realizzare un certo kit, che chia- ammesso che dopo aver realizzato il 
miamo A, occorrono: primo kit può da questo prelevare 

componenti già usati? Poi: quali so¬ 
no i componenti da usare in entram¬ 
bi i kit? Oppure: quanti sono i com¬ 
ponenti “caratteristici” di ogni kit 
(quelli cioè presenti o nell’uno o 
nell’altro ma non in entrambi)? Al 


1 transistor BC 108 
1 integrato 7805 
1 resistenza da 100 Kohm 
1 condensatore da 100 uF 
1 diodo 1N4148 


do: BC 108, resistenza da 100 
Kohm, condensatore da 100 uF. 
transistor BC 237, diodo 1N4001 e 
TL 081. 

Insiemi e operazioni 
tra insiemi_ 

Anche se il programma provve¬ 
de da sé, con numerosissime videa- 
te, a esporre in maniera precisa e 
chiarissima la parte teorica dell in¬ 
siemistica, è bene chiarire di che co¬ 
sa si occupa questa branca della ma¬ 
tematica. Non è però possibile defi¬ 
nire che cos’è un Insieme, poiché il 
concetto di insieme è Primitivo, cioè 
non definibile se non tramite richia¬ 
mi poco formali o esempi pratici. Si 
può comunque definire un insieme 
come un gruppo di elementi acco¬ 
munati tra loro da una affinità logi¬ 
ca, da una proprietà o da una comu¬ 
ne caratteristica. Gli esempi pratici 
sono il metodo migliore, nel caso 
dell’insiemistica: i giocatori di una 
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Tutti insiemi, appassionatamente 


Listato 2 


100 REM w 

101 REM INSIEMISTICA 

102 REM LISTATO 2 

103 REM GENERATORE GRAFICA 
104- REM © 1985 b'-l DISCOUOGUE 

105 REM 

106 POKE 23658.255 RESTORE 101 
0: FOR n=15360 TO 16383 POKE n + 
34-64-0, PEEK n NEXT n 

1010 DATA 0,126,102.102.102.102, 
126,0,0,60,12,12,12, 12 .Ì2.0,0.12 
6,102,6.126,96,126,0.0,126 . Ì02.6 
,126,6,126,0,0,102,102,102,126,6 
,6,0,0,12b,102.98.128,8 > 128,0 

1011 DATA 0,126,102,96,126,102,1 
26,0,0,126,102.6.12.24.48.0,0.12 
6,102,102,126,102,126,0.0'. 126 '. 10 
2,102,126.6,126,0 

1099 FOR n =50384- TO 504-63: READ 
X POKE H ,X : NEXT n 

2010 DATA 0,60,102,102.126,102.1 
02,0,0,124- , 102.102,124- ,102,124,0 
,0,60,102,96,96,96,62,0,0,120.10 
8,102,102,102,124,0,0,126,102,96 
.126,96,126.0 

2011 DATA 0,126,102,96.126.96,96 
,0,0,60,102.96,110,102,60.0,0,10 
2,102,102,126,102.102,0.0,24,24, 
24,24.24,24.0,0,30.12.12,12,108. 
56 . O 

2012 DATA 0,102,108,112,112,108, 
102,0,0,96,96,96,96,96,Ì26,0,0.6 
6,102.126,102,102.102.0,0.70.102 
.113,110,102,98,0,0,60,102,102,1 


02,102,60,0 

2013 DATA 0.124.102,102,124.96,9 
6.0,0,60,102.102,102.103,58.0.0, 
124.102.102 , Ì24,Ì02,Ì02.0,0.60,1 
02,96.60.6.126,0,0,126,24,24,24, 
24.24.0 

2014 DATA 0,102,102,102,102,102, 
60.0,0,102,102.102,102,36,24,0,0 
, 1Ó2,102,102,126,126,36,0,0,102, 
102,56,28,102,102,0,0,102,102,10 
2.60,24,24,0,0,126,102,12,48,102 
• 126.0 

2099 FOR n=50520 TO 50727: READ 
X POKE n.X NEXT n 

3010 DATA 0.48.48,48,48,0.48,0,5 
4.18,36.0,0.0,0.0.0.0.30,32,126, 
32,30,0,0,4,30,40,126,40,30,16,0 
, 96.96.96,0,0,Ó.0.0,0.68,40,16.4 
0,68,0.48.16.32,0,0,0.0,0,12,24. 
24.43.24,24,24.12 

3011 DATA 48,24,24,12,24,24,24,4 
8,0,0.0,24.24,0.0.0.0.24,24,126, 
126,24,24,0,0,0,0,0,0,48,16,32,0 
.0,0.126,126,0.0.0,0,0.0.0,0,48, 
43,0.0.0.0.255.255,0.0,0 

3012 DATA 0,0,48.48.0.48,48.0.0. 
0,48,43.0.48,16,32,0,8,24,20,36, 
66,126,0,0,24,36,36,36,36,36,0,0 
. 126,70,6,126,0,96.0,0,36,36,36, 
36,36.24.0.0,58,68,74.82,34,92.0 

3097 FOR n=50264 TO 50383: READ 
X : POKE n ,X : NEXT n 

3098 FOR n=50464 TO 50487: READ 
X: POKE n.X NEXT n: FOR n=50496 

TO 50519 READ X: POKE n.X: NEX 
T n 

3099 FOR n=50768 TO 50775: READ 
X POKE n,X NEXT n 

99O0 POKE 23606,80 POKE 23607,1 
95 LET K =0 GO SUB 9950 
9909 POKE 23606.0 POKE 23607,60 
BEEP .5,30 GO TO 9999 

9950 PRINT AT K .0; "0123456789" 

9951 PRINT AT K + 3.0. "ABCDEFGHIJK 
LMNOPQRSTUUXYUZ" 

9952 PRINT AT K +6.0. "! ? "" , . : , ' 
0 $ % () *+-/ &<>@ £" 

9989 RETURN 



squadra di calcio, i lettori di una 
certa rivista, i fan di un certo cantan¬ 
te, i numeri dispari, le città di un 
determinato stato, sono tutti esempi 
notevoli di insiemi, e cioè di ele¬ 
menti accomunati tra loro da una 
caratteristica. Per i giocatori della 
squadra di calcio sarà l’appartenen- 
za alla squadra, per i lettori della 
rivista sarà il comprare o il leggere 
detta rivista, e così via. 

Definito in qualche modo il con¬ 
cetto di insieme, diventa quindi pos¬ 
sibile operare su questi gruppi, in 
modo da modificarne anche sensi¬ 
bilmente le caratteristiche formali c 
sostanziali. Per fare questo bisogna 
però saper usare gli strumenti adat¬ 
ti, e cioè le operazioni tra insiemi: 
unione, intersezione, differenza, 
differenza simmetrica e prodotto 
cartesiano. 

11 programma tratta questa parte 
con particolare attenzione (attra¬ 


verso due apposite routine, una per 
la parte teorica e una per le applica¬ 
zioni pratiche). Per capire come si 
svolgono le operazioni fra insiemi, 
si considerino (Figura 1) due insie¬ 
mi (A e B) che, messi in relazione in 
vari modi, verranno a contenere 
elementi accomunati per il fatto di 
appartenere o no all’uno o all'altro 
insieme. Più che altro questo sche¬ 
ma riesce a mostrare i soli contenuti 
formali, per cui è senz’altro necessa¬ 
rio considerare anche la parte teori¬ 
ca fondamentale del programma 
(opzione 1 del menù principale). 

Il programma 

Insiemistica è un programma 
composto da tre file, le cui caratteri¬ 
stiche sono le seguenti: 


Listato I (sottoprogramma di 
lancio) 


10-16 Inizio del sottoprogramma di 
lancio; dati preliminari; predisposi¬ 
zione video 

17 Istruzioni per il caricamento dei 
file successivi 

Listato 2 (generatore grafica) 
100-106 Inizio del sottoprogramma; 
dati preliminari; trasferimento del 
set di caratteri standard all’indirizzo 
50.000 della Ram 
1010-3099 Determinazione e trasfe¬ 
rimento all'indirizzo 50.000 del nuo¬ 
vo data set grafico 
9900-9989 Messaggio audiovisivo 
dell’avvenuto caricamento del data 
set; videata di controllo della nuova 
grafica. 

Listato 3 (master) 

100-111 Inizio del sottoprogramma; 
dati preliminari; predisposizione 
video 

501-599 Routine del menù princi¬ 
pale 
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Listato 3 



100 REM 

101 REM INSIEMISTICA 

102 REM LISTATO 3 

103 REM MASTER 

104 REM © 1985 b'-l DISCOUOGUE 

105 REM 

106 BORDERÒ POK.E 23693., 68 CL 
S POKE 23562.1 POKE 23658.. 255 

107 GO SUB 98Ó0 FOR n=l TO 4 
BEEP .02.30 BEEP .18.40 PAUSE 
4 NEXT n GO SUB 9700 

109 PAUSE 44 CLS 

110 GO SUB 9900 F'RINT AT 0,0; 
INK 6 ; a $ ' a $ , a $AT 19 , Q, a $ ' ' a * , A 
T 1 . IO, " INSIEMISTICA 11 

111 FOR n =1 TO 7: BEEP .01,20 
BEEP .01.25 BEEP .03,40 NEXT n 

501 LET e=0 LET li=4 LET f =30 
PRINT AT 5,8. INK 7;"MENU' PRI 
NCIPALE" 

510 DATA "1 . TEORIA DEGL 

I INSIEMI". "2 . OPERAZIONI T 

RA INSIEMI","3 . APPLICAZIO 

NI PRATICHE" RESTORE 510 

511 FOR n =8 TO 14 STEP 3 READ 
£$ PRINT AT n , 1, INK 5, S $ NEXT 

n 

550 LET h =CODE INKEY $ IF h>48 
AND h <52 THEN LET h=h-48 FOR f = 
1 TO 3: FOR g=l TO 6 PRINT AT 5 
+h*3,l, INK g, OUER 1;n $ : BEEP . 
005.g*8 NEXT g NEXT f GO SUB 
9000 LET li=5 LET k=5 LET r=4 
GO TO h*1000 

598 LET f = r +1 : IF f =40 THEN LET 
f =30 

599 BEEP .001. f GO TO 550 

1001 LET S $ = "TÉORIA DEGLI INSIEM 
I" GO SUB 9100 

1002 LET r=6 LET k=4 LET S$ = "I 
L CONCETTO DI" GO SUB 9100 LET 

k =7 LET S$ = "INSIEME" GO SUB 9 
100 

1003 LET k=4 LET S$="E' PRIMITI 
UO NON DEFINIBILE" GO SUB 9100 

LET f=r+1 LET S $ = “TUTTAUIA POS 
SIAMO DIRE CHE" GO SUB 9100 

1004 LET S$="UN INSIEME E' UN GR 
UPPO DI" GO SUB 9100 LET S$="D 
ETERMINATI ELEMENTI" GO SUB 910 
0 

1005 LET S $ = " CARATTERIZZATI DA": 
GO SUB 9100 LET S$="UNA PROPRI 

ETÀ AD ESSI COMUNE" GO SUB 910 
0 

1006 GO SUB 9200 GO SUB 9000 

1007 LET f =6 LET S$ = "GLI INSIEM 
I SI INDICANO CON LE"; GO SUB 91 
00 LET £$ = " LETTERE MAIUSCOLE' 

GO SUB 9100 

1008 LET S$="DELL ALFABETO LATIN 
0. MENTRE" GO SUB 9100 LET S * = 
"I RELATIUI ELEMENTI SI INDICANO 

GO SUB 9100 

1009 LET £ $ = " CON LE LETTERE MINU 
SCOLE" GO SUB 9100 LET S* = "E U 


ENGQNO INOLTRE RACCHIUSI": GO SU 
B 9100 

1010 LET s $ = "TRA DUE PARENTESI G 
RAFFE": GO SUB 9100 GO SUB 9200 

GO SUB 9000 

1011 LET r=6 LET k=7: LET S$ = "E 
SEMAIO " GO SUB 9100 LET k =4 ; 
LET s $ = "DAT0" : GO SUB 9100 

1012 LET k = 3 LET S$ = "A = (a.b.C 
)"■ GO SUB 9100 LET K=4 LET s$ 
="SI DICE CHE" GO SUB 9100 

1013 LET s $ = " A E' UN INSIEME COM 
POSTO DAGLI" GO SUB 9100 LET s 
$="ELEMENTI a,b E c": GO SUB 910 
0 GO SUB 9200 GO SUB 9000 

1014 LET f=6 LET S*="IL SIMBOLO 
GO SUB 9100 LET k=3 LET S$= 

"»" GO SUB 9100 

1015 LET k. =4 LET S*="INDICA ""A 

PPARTENENZA. : GO SUB 9100 LET 

S $ = "E STA AD INDICARE CHE"; Gu 
SUB 9100 

1016 LET s $ = "UN CERTO ELEMENTO A 
PPARTIENE" GO SUB 9100 LET S$ = 
"ALL'INSIEME INDICATO": GO SUB 9 
100 

1017 LET r = r +1 LET S$ = "IL SIMBO 
LO" GO SUB 9100 LET k=3 LET S 
$="$" GO SUB 9100 

1018 LET k =4 LET S$ = "INDICA INU 

ECE ""NON APPARTENENZA.: GO SU 

B 9100 LET sf="DELL'ELEMENTO" 

GO SUB 9100 

1019 LET S$="ALL"INSIEME INDICAT 
0": GO SUB 9100 GO SUB 9200 GO 

SUB 9000 

1020 LET f =6 LET k=7 : LET S$ = "E 
SEMPIO : " : GO SUB 9100 LET k=4 
LET S $ = "DAT I I DUE INSIEMI" GO 
SUB 9100 

1021 LET k = 3 LET S$ = "A = (a.b.C 

) B = ib.d)": GO SUB 9100: LE 

T k =4 LET s$ = "5I HA CHE": GO SU 
B 9100 

1022 LET S$ = "a E C APPARTENGONO 
AD A" GO SUB 9100 LET S$ = "b AP 
PARTIENE SIA AD A CHE A B" GO S 
UB 9100 

1023 LET s $ = " E d APPARTIENE A B" 
GO SUB 9100 LET f=r+l LET S$ 

="SI PUÒ' DUNQUE SCRIUERE CHE" 

GO SUB 9100 

1024 LET k =3 LET S*="aBA a*B 
btt A bBB" GO SUB 9100 LET £ $ 

= "C»A >: $6 d $A dttB" GO SUB 
9100 GO SUB 9200 GO SUB 9000 

1025 LET r =6 LET k=4 LET S$ = "S 
I DICE CHE UN INSIEME HA" GO SU 
B 9100 LET k=7 LET 5$="FORMA E 
STENSIUA": GO SUB 9100 

1026 LET k = 4 LET S$ = "QUANDO ENT 
RO LE PARENTESI": GO SUB 9100 L 
ET s $ = "UENGONO ELENCATI" GO SUB 

9100 

1027 LET S$= TUTTI I RELATIUI EL 
EMENTI" GO SUB 9100 LET C=f+1 

LET S $ = "31 PARLA INUECE DI": GO 
SUB 9100 

1028 LET k=7 LET s$="FORMA INTE 
NSIUA": GO SUB 910O LET k=4 LE 
T S $ = "QUANDO CI SI LIMITA AD IND 
ICARE": GO SUB 9100 

1029 LET s $ = "LA PROPRIETÀ ' CHE C 
ARATTERIZZA" GO SUB 91Q0 LET £ 
$ = "GLI ELEMENTI DELL'INSIEME": G 
0 SUE 9100 

1030 GO SUB 9200 GO SUB 9000 

1031 LET r =6 LET k=7 LET S$ = "E 
SEMAIO " GO SUB 9100 LET k=4 
LET £ $ = "CHIAMATO CON A": GO SUB 
9100 

1032 LET S$="L INSIEME DELLE CIT 
TA' ITALIANE" GO SUB 9100 LET 


(contìnua) 
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Tutti insiemi, appassionatamente 


*$="CON ALMENO": GO SUB 9100 LE 
T <=. $ = "UN MILIONE DI ABITANTI," 

GO SUB 9100 

1033 LET £$="Lh FORMO ESTENSIVO 
DI 0 SORO" GO SUB 9100: LET K 
=3 LET £$ = "0 = (MILANO.NOPOLI,R 
OMO.TORINO)" : GO SUB 9100 
1034- LET k. =4 : LET £ $ = " MENTRE WUE 
LLO INTENSIUO SORO":" GO SUB 9 
100 LET k=3 LET £$ = "0 = (a, a 

E" UNO CITTO' ITALIANO": GO SUB 
9100 

1035 LET c =5 LET £$=”CON OLMENO 
UN MILIONE DI” GO SUB 9300 LE 

T S$="OBITANTI)": GO SUB 9300 L 
ET li. =4- LET £ $ = "OUE IL SIMBOLO " 

",. QO SUB 9100 LET £$="SIGN 

IFICO ""TALE CHE. : GO SUB 9100 

1036 GO SUB 9200 GO SUB 9000 

1037 LET f =6 LET s$ = "DOTO UN IN 
SIEME 0"; GO SUB 9100 LET £$ = "L 
O SI DEFINISCE": GO SUB 9100 
1033 LET k=7 LET £$="INSIEME UU 
OTO" : GO SUB 9100 LET k = 4 LET 
S$ = "E LO SI INDICO COL SIMBOLO"; 

GO SUB 9100 _ 

1039 LET k =3 LET £$="£" GO SUB 
9100 LET K =4- LET £$="SE DETTO 
INSIEME E'"; GO SUB 9100 
104.0 LET £ $="PRIUO DI ELEMENTI- 
CO SUB 9100 LET r = f +1 LET £$ = 
"SI HO CIOÈ'" GO SUB 9100 

1041 LET K =3 LET s$ = "0 = £ 

0 = O" GO SUB 9100 GO SUB 9 
200 GO SUB 9000 

1042 LET f=6 LET k=7 LET £$ = "U 
GUOGLIONZO TRO INSIEMI" GO SUB 
9100 LET k =4 LET £$="DUE INSIE 
MI 0 E B": GO SUB 9100 

1043 LET £ $ = "SONO UGUOLI SE E SO 
LO SE" GO SUB 9100 LET £$="OGN 
I ELEMENTO DI 0" GO SUB 9100 

1044 LET £ $ = "£•' ONCME ELEMENTO D 

I B" GO SUB 9100 LET £$ = "E UIC 
EUERSO" GO SUB 9100 * 

1045 GO SUB 9200 GO SUB 9000 

1046 LET r=6 LET £$="DOLGONO DU 
NQUE hNCHE" GO SUB 9100 LET £$ 
="LE SEGUENTI" GO SUB 9100 LET 

S $ = "CINQUE PROPRIET0 " " GO SUB 

•3100 GO SUB 9200 GO SUB 9000 

1047 LET r =6 LET k =7 : LET £$ = “1 
" GO SUB 9100 LET k =4 LET £$ = 
”L'UGUOGLIONZO DEGLI INSIEMI" G 
0 SUB 9100 

1048 LET s$="PRESOINDE DOLL'ORDÌ 
NE" GO SUB 9100 LET S$="DEGLI 
ELEMENTI" GO SUB 9100 LET f=i + 
1 LET £$="INFATTI SE E GO SU 
B 9100 

1049 LET k =3 LET £$= 0 = (a.b.C 

) B = (a.C,b)" GO SUB 9100 

LET k =4 LÈT £$="SI HO SEMPRE": 
GO SUB 9100 

1050 LET k. = 3 LET S$ = "0 = B" : L-0 

SUB 9100 GO SUB y200 GO SUB y 

000 _ 

1057 LET r=6 LET k=7 LET £$ = ' = 
GO SUB 9100 LET K=4 LET £* = 

"L UGUOGLIONZO DEGLI INSIEMI' G 
0 SUB 9100 „„„ 

1058 LET £ $ = "PRESOINDE DOLLH RIP 
ETIZIONE" GO SUB 9100 LET £$ = " 
DEGLI ELEMENTI" GO SUB 9100 LE 
T r=r+'l LET £$="INFATTI SE E‘ ' : 

GO SUB 9100 

1059 LET k =3 LET £$ = "0 = ‘3 .b,C 

) B = I 3 , a , b . C . . C ) " GO SUB 

9100 LET K =4 LET £$="SI HO SE 
MPPE" GO SUB 9100 

1060 LET k=3 LET £$="0 = 6" GO 
SUB 9100 GO SUB 9200 GO SUB 9 

000 

1061 LET f=6 LET k=7 : LET £$ = " 3 


" GO SUB 9100 LET k=4 LET £$ = 
"OGNI INSIEME E' SEMPRE UGUALE": 

GO SUB 9100 

1062 LET £$="0 SE STESSO" GO SU 
B 9100 LET k =7 LET s$ = " [PROPRI 
ETO- RIFLESSIUO]" GO SUB 9100 

1063 LET k=4 LET r=f+1 LET £$ = 
"PER CUI SI HO": GO SUB 9100 LE 
T K. =3 LET £$ = "0 = 0" GO SUB 91 
00 

1064 GO SUB 9200 GO SUB 9000 

1071 LET r=6 LET k=7 LET £*="4 
GO SUB 9100 LET k=4 LET £$= 

"SE L INSIEME 0 E'' UGUALE" GO S 
HB 9100 LET £$="OLL'INSIEME B" 

GO SUB 9100 . „ 

1072 LET £ $ = "E ' UERO ANCHE IL UI 
CEUERSO" GO SUB 9100 LET k=7 
LET s$ = " [PROPRIETÀ' SIMMETRICO]" 

GO SUB 9100 

1073 LET k=4 LET f=f+l LET £$= 
"PER CUI SI HO”: GO SUB 9100 LE 

T k =3 LET £$ = "0 = B B = A" 

GO SUB 9100 

1074 GO SUB 9200 GO SUB 9000 
1080 LET r =6 LET k =7 LET £$ = "5 
" GO SUB 9100 LET K=4 LET £$ = 
"SE L'INSIEME 0 E UGUALE": GO S 
UB 9100 LET £$="OLL'INSIEME B" 

GO SUB 9100 

1031 LET £ $ = "E B E' UGUALE ALL' I 
NSIEME C" GO SUB 9100 LET £$=" 
ALLORO 0 E' UGUALE 0 C": GO SUB 
9100 

1032 LET k=7 LET £ $ = " [PROPRIETA 

' TRANS ITIUO] GO SUB 9100 

1083 LET k=4 LET fsf+1: LET £$= 
"PER CUI SI HO" GO SUB 9100 LE 
T k =3 LET s$ = "0 = B B = C 

0 = C": GO SUB 9100 

1089 GO SUB 9200 GO SUB 9000 

1090 LET r =6 LET k=7 LET £$ = "D 
EF IN IZ IONE DI COMPLEMENTARE" IjO 

SUB 9100 LET k=4 LET £$="DATI 
DUE INSIEMI 0 E X TALI CHE": GO 
SUB 9100 LET £$="0 E' SOTTOINS 
IÉME DI X" GO SUB 9100 

1091 LET £$ = “ ITOLE CIOÈ CHE OGN 
I ELEMENTO" GO SUB 9100 LET £$ 
s"DI 0 E ANCHE ELEMENTO DI X3 

GO SUB 9100 LET S$="SI DEFINÌ 
SCE" GÓ SUB 9100 

1092 LET k =7 : LET £$ = "COMPLEMENT 
ORE DI A RISPETTO OD X" GO SUB 
9100 LET k=4 LET £$="L0 DIFFER 
ENZO X-0. CHE E” GO 5UB 9100 
LET £$="L ' INSIEME DEGLI ELEMENTI 

DI X" GO SUB 9100 LET £*="CHE 
NON APPARTENGONO OD A" GO SUB 
9100 GO SUB 9200 GO SUB 9000: 

LET f=6 LET £$="IL COMPLEMENTAR 
E DI 0" GO SUB 9100 

1093 LET £$="RISPETTO OD X SI IN 
DICO CON" GO SUB 9100 LET f=r+ 

1 LET k =3 LET s$ = "0%" GO SUB 
9100 LET C =16 : LET £$ = "X": GO S 
l IB 9300 

1094 LET k=4 LET r=r+l: LET £$= 
"0 PIU' SEMPLICEMENTE CON" GO S 
UB 9 100 LET k =3 : LET £$ = "0X' L 
0 SUB 9100 

19Q9 LET e=l GO SUB 9200 GO SU 
B 9000 

2001 LET op=2 LET £ $ = "OPEROZION 
I TRO INSIEMI": GO SUB 9100 GO 
SUB 9400 _ . 

2101 LET f =6 LET k=7 LET £$ = "U 
NIONE" 60 SUB 9100 LET k=4 LE 
T £$="DOTI DUE INSIEMI A E B": G 
0 SUB 9100 LET £$="51 CHIAMO" 

GO SUB 91O0 

2102 LET k=7 LET £$="UNIONE DI 
0 E 6": GO SUB 9100 LET k=4 LE 

(continua) 
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1001-1999 Opzione della TEORIA 
DEGLI INSIEMI 
2001 Opzione della TEORIA DEL¬ 
LE OPERAZIONI TRA INSIEMI 
2101-2199 Subroutine della teoria 
della UNIONE 

2201-2299 Subroutine della teoria 
della INTERSEZIONE 
2301-2399 Subroutine della teoria 
della DIFFERENZA 
2401-2499 Subroutine della teoria 
della DIFFERENZA SIMME¬ 
TRICA 

2501-2599 Subroutine della teoria 
del PRODOTTO CARTESIANO 
3001-3042 Opzione delle APPLI¬ 
CAZIONI PRATICHE con le ope¬ 
razioni tra insiemi 
3110-3150 Subroutine delle applica¬ 
zioni sulla UNIONE 
3210-3250 Subroutine delle applica¬ 
zioni sulla INTERSEZIONE 
3310-3350 Subroutine delle applica¬ 
zioni sulla DIFFERENZA 
3410-3450 Subroutine delle applica¬ 
zioni sulla DIFFERENZA SIM¬ 
METRICA 

3510-3550 Subroutine delle applica¬ 
zioni sul PRODOTTO CARTE¬ 
SIANO 

4010-4099 Subroutine di controllo 
del cursore 

4209-4399 Stampa dei risultati del¬ 
l’operazione tra l’insieme A e l’in¬ 
sieme B 

5010-5089 Sistema automatico di 
standardizzazione degli insiemi; an¬ 
nullamento degli elementi ripetuti e 
degli spazi vuoti 

9010-9099 Subroutine di CLS delle 
pagine video 

9130-9199 Stampa centrata dei testi 
9205-9299 Subroutine di attesa per 
le operazioni successive 


9330-9399 Stampa indirizzata dei 
testi 

9410-9499 Menù delle operazioni 
tra insiemi 

9705-9799 Determinazione delle va¬ 
riabili permanenti di programma 
9805-9899 Stampa del messaggio 
“FERMA IL NASTRO” 

9910-9999 Data set di copyright 

Funzionamento e uso 

Dopo una premessa di carattere 
introduttivo, il programma si predi¬ 
spone subito a ricevere i comandi 
attraverso la videata del menù prin¬ 
cipale. Un beep continuo ricorda 
che il computer è in attesa di un 
input atto alla scelta di una delle tre 
opzioni principali disponibili nel 
menù, che sono: teoria degli insie¬ 
mi, operazioni tra insiemi e applica¬ 
zioni pratiche. La prima, richiama¬ 
bile col tasto 1, esporrà in modo 
dettagliato ed estremamente chiaro 
tutti i concetti, le definizioni e le 
espressioni formali che è necessario 
sapere per poter accedere con buon 
profitto alla teoria e alla pratica del¬ 
le operazioni tra insiemi. Questa 
opzione dovrà essere consultata da 
tutti coloro che di insiemi non han¬ 
no mai sentito parlare o quasi: infat¬ 
ti tratta in pratica tutti i concetti che 
stanno alla base dell’insiemistica. 

La seconda opzione (richiamabile 
con il tasto 2) è invece un’esposizio¬ 
ne completa e particolareggiata (è 
anche corredata di esempi notevoli, 
di esempi pratici e di formule) di 
tutta la parte teorica relativa alle 
operazioni tra gli insiemi. Ovvia¬ 
mente la consultazione di questa op¬ 
zione presuppone la conoscenza 
dell'opzione 1, da cui è concettual¬ 


mente sviluppata. Vengono infatti 
trattate unione, intersezione, diffe¬ 
renza, differenza simmetrica e pro¬ 
dotto cartesiano, che sono proprio 
le operazioni fondamentali applica¬ 
bili all’insiemistica. 

La terza opzione, richiamabile 
sempre dal menù principale col ta¬ 
sto 3, introduce invece alle applica¬ 
zioni pratiche delle operazioni ap¬ 
pena viste. Grazie a routine di cal¬ 
colo appositamente studiate, è pos¬ 
sibile impostare e risolvere qualsiasi 
tipo di operazione tra due determi¬ 
nati insiemi con l’uso dei tasti alfa- 
numerici della tastiera. I comandi di 
inserimento, cancellazione, sposta¬ 
mento di cursore e conferma sono 
tutti richiamabili in modo immedia¬ 
to, e anzi sono addirittura rapporta¬ 
ti allo standard di programmazione 
listati: per esempio, per cancellare 
un dato inserito è sufficiente usare 
la funzione DELETE (CAPS 
SHIFT + 0). 

Mentre si consultano le tre routi¬ 
ne principali (Figura 2) è sempre 
possibile ritornare all'inizio dell’op¬ 
zione scelta, oppure al menù, pre¬ 
mendo un qualsiasi tasto. Sul fondo 
del video infatti, in un apposito ri¬ 
quadro, alla fine di ogni pagina vi¬ 
deo, si succedono in sequenza tre 
messaggi: RITORNO ALL'INI¬ 
ZIO DELL'OPZIONE, RITOR¬ 
NO AL MENÙ PRINCIPALE e 
PASSO SUCCESSIVO. Premendo 
un tasto alla presenza di quest’ulti¬ 
mo messaggio si può procedere alla 
lettura della pagina video successi¬ 
va. La routine di attesa è caratteriz¬ 
zata da uno speciale beep, che non 
infastidisce il lettore della pagina 
video. 
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Tutti insiemi, appassionatamente 


T s $ = "E 51 SCRIVE" GO SUB 9100 
LET K=3 LET £$ = "A @ B": GO SUB 
9100 

2103 LET k= 4 LET S$="L INSIEME 
DEGLI ELEMENTI" GO SUB 9100 LE 
T S $ = " CHE APPARTENGONO ": GO SUB 
9100 LET S $ = " AD A. A B, 0 AD EN 
TRAME I" GO SUB 9100 

2104 LET r = T +1 LET K=4 LET S$ = 
"L'ESPRESSIONE FORMALE E':" GO 
SUB 9100 LET k. =3 LET S$ = "A@B = 

«X. xttA e lo x»BiGO SUB 9100 

2105 GO SUB 9200 GO SUB 9000 

2106 LET f =6 LET k=7 LET £$a"E 
SEMPIO ": GO SUB 9100 LET k =4 
LET S $ = "DAT I DUE INSIEMI A E B" 

GO SUB 9100 LET k=3 LET S$="A 
= ( a . b , c) B = (a,c,d .e) ": 

GO SUB Q100 

2107 LET farti LET k=4 LET s$ = 

"SARA' " GO SUB 9100 LET k=3 
LET s $ = " A i? B = (a,b,C,d.eì": GO 

SUB 9100 

2103 GO SUB 9200 GO SUB 9000 
2109 LET f=6 LET k=7 LET S$="E 
SEMAI NOTEVOLI " GO SUB 9100: L 
ET k=3 LET S$ = "A i* £ = A" : GO 

SUB 9100 LET £$a"A 0 A = A" G 
0 SUB 9100 LET S$ = "A 0 A V. = X" : 
GO SUB 9100 

2199 LET e si GO SUB 9200 GO SU 
B 9000 

2201 LET r = 6 LET k=7 : LET S$ = "I 
NTERSEZIONE" GO SUB 9100 LET k 
= 4 LET S $ = "DAT I DUE INSIEMI A E 

B" GO SUB 9100 LET £$="SI CHI 
AMA" GO SUB 9100 

2202 LET k =7 LET £$ = "INTERSEZIO 
NE DI A E B": GO SUB 9100 LET k 
=4 LET S$="E SI SCRIVE" GO SUB 

9100 LET k =3 LET S$ = "A > B" 

GO SUB 9100 

2203 LET k =4 LET S$ = "L INSIEME 
DEGLI ELEMENTI" GO SUB 9100 LE 
T S$ ="CHE APPARTENGONO" GO SUB 
9100 LET £ $ = "SIA AD A CHE AB" 

GO SUB 9100 

2204 LET farti LET k=4 LET £$ = 
"L'ESPRESSIONE FORMALE E " GO 
SUB 9100 LET k =3 LET S$ = "A>B = 

(X, XttA e XttB)" GO SUB 910O 

2205 GO SUB 9200 GO SUB 9000 

2206 LET r =6 LET k=7 LET s$ = "E 

SEMPIO " GO SUB 9100 LET k=4 

LET £ $ = " DAT I DUE INSIEMI A E B" 

GO SUB 9100 LET k =3 LET S$ = "A 
a ( à . b . C ) B = ( S , C , d . 6 ) " : 

GO SUB 9100 

2207 LET fsftl LET K. =4 LET S$ = 

"SARA' " GO SUB 9100 LET k=3 : 

LET S $ = " A > B = (a .C ) " GO SUB 9 

100 

2208 GO SUB 9200 GO SUB 9000 

2209 LET fa6 LET k=7 LET S$="E 

SEMPI NOTEVOLI " GO SUB 9100 L 
ET k =3 LET £$ = "A > £ = £" GO 

SUB 9100 LET s $ a " A > A = A" G 
0 SUB 9100 LET £$ = " A > A% = £" 

GO SUB 9100 

2299 LET e=l GO SUB 9200 GO SU 
B 9000 

2301 LET r =6 LET k=7 LET £$ = "D 
IFFERENZA". GO SUB 9100 LET k=4 

LET S $ = " DATI DUE INSIEMI A E B 
GO SUB 9100 LET £$="SI CHIAM 
A" GO SUB 9100 

2302 LET k = 7 LET £$ = " DIFFERENZA 
DI A E B" GO SUB 9100 LET k=4 

LET s $ = " E SI SCRIVE" GO SUB 9 
100 LET k=3 LET £* = "A - B" GO 
SUB 9100 

2303 LET k=4 LET s $ = "L INSIEME 
DEGLI ELEMENTI DI A" GO SUB 910 
0 LET s $ = “CHE NON APPARTENGONO 


AB" GO SUB 9100 

2304 LET fsftl LET k=4 LET S$= 
"L'ESPRESSIONE FORMALE E':": GO 
SUB 9100 LET k = 3 LET £■ $ = "A-B = 

(X, XttA , x$Bj" GO SUB 9100 

2305 GO SUB 9200 GO SUB 9000 

2306 LET f=6 LET k=7 LET S$="E 
SEMPIO " GO SUB 9100 LET k=4 
LET a $ = "DATI DUE INSIEMI A E B" 

GO SUB 9100 LET k=3 LET £$ = ”A 
= (a , b . c) B = (a , c,d,e!": 

GO SUB 9100 

2307 LET fsftl LET k=4 LET £$= 

"SARA' " GO SUB 9100 LET k=3 
LET s $ = " A - B = ib)": GO SUB 910 

0 

2303 GO SUB 9200 GO SUB 9000 
2309 LET f =6 LET k=7 LET £$ = "E 
SEMPI NOTEVOLI " GO SUB 9100 L 
ET k =3 LET s $ = " A - £ = A" GO 

SUB 9100 LET £ $ = " A - A = £": G 
O SUB 9100 LET £ $ = "A - A% = A" 

GO SUB 9100 

2399 LET e a l GO SUB 9200 GO SU 
B 9000 

2401 LET f=6 LET k=7 LET S$a"D 
IFFERENZA SIMMETRICA" GO SUB 91 
00 LET k =4 LET S$ = "DATI DUE IN 
SIEMI A E B": GO SUB 9100 LET £ 

$ s"5I CHIAMA " GO SUB 9100 

2402 LET k.=7 LET S $ = ”DIFFERENZA 
SIMMETRICA DI A E B" GO SUB 91 

00 LET k=4 LET £$a"E SI SCRIVE 
" GO SUB 9100 LET k=3 LET £$= 
"A < B": GO SUB 9100 

2403 LET k. =4 LET s $ = " L ' INSIEME 
DEGLI ELEMENTI": GO SUB 9100 LE 
T £ $ = “CHE APPARTENGONO" GO SUB 
9100 LET s $ a"AD A 0 A B, MA NON 

AD ENTRAMBI": GO SUB 9100 

2404 LET f=r 11 LET k=4 LET S$a 

"L'ESPRESSIONE FORMALE E' ": GO 

SUB 9100 LET k.a3 LET £$a"A<B a 

(X, XttA 0 XttB. X $A > B) ": GO SUB 
9100 

2405 GO SUB 9200 GO SUB 9000 

2406 LET f = 6 LET ka? : LET £$a"E 
SEMPIO ": GO SUB 910O LET k=4 
LET S $ = "DAT I DUE INSIEMI A E B" 

GO SUB 9100 LET k=3. LET S$a"A 
= (a , b , c) B = (a , c t d , e J 

GO SUB 9100 

2407 LET r=r+l LET k. = 4 LET £$ = 
"SARA' " GO SUB 9100 LET k=3 
LET £ $ = " A < B a (b d.e)" GO SUB 

9100 

2408 GO SUB 9200 GO SUB 9000 

2409 LET ra6 LET k=7 LET £$a"E 

SEMPI NOTEVOLI " GO SUB 9100 L 
ET k =3 LET £$ = "A < £ = A" GO 

SUB 9100 LET £ $ = "A < A = £": 6 

0 SUB 9100 LET £ $ a " A < AV. a X": 

GO SUB 9100 

2499 LET Pai GO SUB 9200 GO SU 
B 9000 

2501 LET r=6 LET k=7 LET £$a"P 
RODOTTO CARTESIANO" GO SUB 9100 

LET farti LET k=2 LET £$="DE 
FINIZIONE PRELIMINARE" GO SUB 9 
100 LET k.=4 LET £$ = "DATI DUE I 
NSIEMI A E B" GO SUB 9100 

2502 LET £$="51 CHIAMA" GO SUB 
9100 LET k =7 : LET S$ = "CQPPIA OR 
DINATA" GO SUB 9100 LET k=4 L 
ET £ $ = "E SI SCRIVE" GO SUB 9100 

2503 LET k=3 LET £$a"Ca ,. b] " GO 
SUB 9100 LET k = 4 LET S$ = "UN G 

RUPPO DI DUE ELEMENTI." GO SUB 
9100 

2504 LET £ $ = "IL PRIMO APPARTENEN 
TE AD A" GO SUB 9100 LET £$a"E 

IL SECONDO APPARTENTE A B" GO 
SUB 9100 

(continua) 
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Figura 3 SCHEMA DEI COMANDI 


COMANDI 

FUNZIONE 

EFFETTI SUL CURSORE 

& 

i 

e 

Inserimento 
dati numerici 

Spostamento automatico 
verso destra 

À...Z 

Inserimento 
dati alfabetici 

Spostamento automatico 
verso destra 

BREAK 

SPACE 

Nessun 

inserimento 

Spostamento automatico 
verso destra 

CAPS , SYMBOL 
SHIFT SHIFT 

Arretramento 

cursore 

Spostamento verso sinistra 

CAPS + „ 

SHIFT 

Cancellazione date 
prima di cursore 

Spostamento automatico 
verso sinistra 

ENTER 

Conferma dati 
inseriti 

Nessuno spostamento 


Uso dei comandi_ 

Usando la routine delle applica¬ 
zioni pratiche (opzione 3 del menù 
principale) si predispone il compu¬ 
ter a mettere in relazione tra loro 
due insiemi A e B, al fine di render 
possibile l’operazione che verrà poi 
scelta. Ovviamente è necessario de¬ 
terminare gli elementi di ciascuno 
dei due insiemi, e per questo sono 
stati previsti facili comandi, che cor¬ 
rispondono a quelli che di solito si 
usano per battere i normali pro¬ 
grammi. Di ognuno dei due insiemi 
è possibile determinare a piacere sei 
elementi, ciascuno dei quali può 
contenere fino a tre dati distintivi 
alfanumerici (lettere comprese tra 
la A e la Z e numeri compresi tra lo 0 
e il 9). Un apposito strip segnalerà 
tutto lo spazio disponibile, e un cur¬ 
sore verde lampeggiante indicherà 
la posizione momentanea per l'inse¬ 
rimento. L’inserimento dei dati va 
fatto prima per l’insieme A, poi, a 
conferma avvenuta, per l’insieme 
B, dopodiché un apposito menù 
chiederà il tipo di operazione da 
eseguire. Alla fine, dopo pochissi¬ 
mo tempo (tre-quattro secondi), 
viene fornito il risultato, che sarà 
ovviamente il nuovo insieme deter¬ 
minatosi in seguito all’operazione 
avvenuta. Si può quindi ritornare 
all’inizio opzione o anche al menù 
principale. 

L'inserimento dati avviene trami¬ 
te semplice pressione dei relativi ta¬ 
sti (A...Z per le lettere, 0...9 per i 
numeri). A ogni inserimento il cur¬ 
sore lampeggiante viene spostato 
automaticamente verso destra, la¬ 
sciando ben visibile il dato inserito; 
è anche possibile lasciare spazi vuoti 
semplicemente premendo BREAK 


SPACE (e naturalmente il cursore 
si sposterà a destra senza modificare 
ciò che incontra). Lo spostamento 
del cursore avviene automatica- 
mente a seguito di un inserimento di 
dati alfanumerici, oppure premen¬ 
do BREAK SPACE (spostamento 
a destra). Lo spostamento a sinistra 
è possibile, per eventuali necessità 
di correzione o per ripassare ele¬ 
menti saltati, premendo CAPS 
SHIFT assieme a SYMBOL 
SHIFT. 

È possibile modificare i dati già 
inseriti usando la funzione DELE- 
TE (CAPS SHIFT + 0); il funziona¬ 
mento e i risultati sono gli stessi di 
quelli ottenibili durante la normale 
impostazione di programmi; si ot¬ 
terrà infatti la cancellazione del da¬ 
to situato precedentemente al cur¬ 
sore, e inoltre si avrà lo spostamen¬ 
to automatico del cursore sulla sini¬ 
stra (al posto del dato appena can¬ 
cellato). La cancellazione può avve¬ 
nire anche tramite l’inserimento di 
dati sopra dati già inseriti (caso in 
cui il cursore si sposta sulla destra). 
La conferma dei dati inseriti di cia¬ 
scun insieme (prima A c poi B) va 
fatta premendo il comando EN- 
TER, naturalmente solo quando si è 
sicuri che tutti gli elementi dell'in¬ 
sieme siano stati correttamente in¬ 
seriti ed eventualmente corretti 
(non è poi più possibile tornare in¬ 
dietro). Alla conferma dell’insieme 


A farà seguito quella deU'insieme 
B, e quindi si procederà alla scelta 
dell’operazione da calcolare. In Fi¬ 
gura 3 è visibile uno schema riepilo¬ 
gativo dei comandi utilizzabili per le 
applicazioni pratiche. 

Battitura 

e salvataggio_ 

Il programma consta di tre file 
consecutivi, che sono nell'ordine: 
sottoprogramma di lancio, genera¬ 
tore di grafica e master. Il salvatag¬ 
gio su cassetta dovrà avvenire in 
modo da ottenere alla fine un risul¬ 
tato analogo a quello mostrato nello 
schema in Figura 4. Sono necessarie 
due cassette. Sulla prima si procede¬ 
rà innanzitutto al salvataggio del 
sottoprogramma di lancio, tramite 
l’istruzione SAVE “INSIEM1ST.” 
LINE 1, dopo aver naturalmente 
battuto il relativo listato 1. La verifi¬ 
ca dell’esatto salvataggio andrà fat¬ 
ta con VERIFY ”” oppure con VE¬ 
RI FY “INSIEM1ST” Quindi si po¬ 
trà mettere momentaneamente da 
parte la prima cassetta e utilizzare la 
seconda, sulla quale è necessario 
salvare, tramite l'istruzione SAVE 
“GRAFICA”, il contenuto del lista¬ 
to 2 relativo al secondo file. Il pre¬ 
ventivo salvataggio (da farsi ovvia¬ 
mente prima di dare il RUN) serve a 
evitare il rischio di perdere il listato 
battuto nel caso che dando RUN 
succedano stranezze; tornerà anche 
molto utile riutilizzarlo nel caso ci 
fossero da apportare modifiche a 
qualche DATA o a qualche linea di 
programma. 

Ammesso che tutto proceda per il 
meglio e che la copia della seconda 
cassetta sia stata salvata, si potrà ora 
riprendere la prima cassetta e salva¬ 
re su questa il secondo file sotto for¬ 
ma di byte. L’istruzione da usare al 
fine di trasformare il listato 2 in un 
blocco di byte è SAVE “GRAFI¬ 
CA” CODE 50000, 1024. Il salva¬ 
taggio andrà eseguito facendo in 
modo che tra il primo file prima sal¬ 
vato (sottoprogramma di lancio) e 
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Tutti insiemi, appassionatamente 


2505 GO SUB 9200 GQ SUB 9000 

2511 LET f =6 LET St="DATI DUE I 
NSIEMI PI E B" : GO SUB 9100 LET 
S $ = " SI CHIPiMfi ‘' GG SUB 9100 

2512 LET K =7■ LET S$ = "PRODOTTO C 
fiRTESIfiNO DI fi PER 6 ": GO SUB Q1 
00 LET k=4: LET S$ = "E SI SCRIUE 

GO SUB 9100 LET K=3 LET s$ = 
"fi X B": GO SUB 9100 

2513 LET k=4: LET S t = "L ' INSIEME 
DELLE" GO SUB 9100 LET s$="COP 
PIE ORDINATE Ca . bl " GO SUB 9100 

LET S $ = "CON attfi E b«B" GO SUB 
9100 

2514. LET r =f +1 LET K =4- LET s$ = 
"L'ESPRESSIONE FORMALE E" GO 
SUB 910© LET k=3 LET s$="fixE = 
( Ca , b] ; attfi, bttB) " GO SUB 9100 

2515 GO SUB 9200 GO SUB '3000 

2516 LET r =6 LET k=7 : LET s$ = "E 
SEMPIO :": GO SUB 9100 LET K =4- 

DUE INSIEMI fi E B" 


LET s $ = "DATI 
GO SUB 9100 
= ( a . b . c ) 

GO SUB 9100 
2517 LET c =8 


LET k =3 LET 


- 

(a 


s $ = "fi 


, e j 


LET 


_ f = f +1 : LET k = 4 

LET S $ = "SARA ' : " GO SUB 9100 
LET k=3 LET S$="fixB = ita.a] 

, c] , Ca , d) . [a , e] . " : GO SUB 9100 
2513 LET s $ = " Cb • a] . tb . Cl 
b.e]," GO SUB 9300 
2519 LET £ $ = " Cc .a] , Cc . C] 

C,e])" GO SUB 93.00 
2599 LET ed: GO SUB 9200 
B 9000 

3001 LET 0 p =3 LET S$ = "APPLICAZI 
ONI PRATICHE" GO SUB 9100 

3002 LET S t =1 LET ca=l LET cca 

$(6,3) DIM f 


C 


C b , d ] , C 
C C , d ] , [ 
GO SU 


l $ 16 
=q$ 

LET 


= 1 LET f 9=8 DIM x$(6,3) 

$( 6 ,3) ■ DIM y $ (6 .3) : DÌM 
FOR r=1 TO 6 LET x$(r) 

T f $(r ) = q $ LET y $ ( r) =q $ 

( r ) = q $ NEXT r 
3003 DIM et(72.3) 

PRINT RT 6,2:"INSIEME fi" 
W $ BEEP .1,4.0 PRINT fiT 
ca); FLASH 1; " " : BEEP . 


3) 
LE 
i. $ 


LET 

LET 


3004- 
9,2; 

, z ( 1 , 

0 

3005 
THEN 

3005 

3006 IF 
B 4-000 

3007 IF 
7 AND j 
T AT rg 
• 2 , c a i 


; RT 
rg 
1,5 


,i=CODE INKEV't IF j =32 
mal GO SUB 4-000 GO TO 


..i = 14- THEN LET hi =0 GO SU 
GO TO 3005 

(i.j >64- AND j < 91 ) OR (j>4- 
<53)) RND Ca <19 THEN PRIN 
, Z < 1 , ca ) ; CHRt .1 LET x$(Z 
Z (3 , ca ) ) =CHR$ -i : LET Bl =1 


15.33 
>1 THEN 


LET fu — 0 
: a -1 ) ) 


PRINT 


GO SUB 4000 BEEP 
3003 IF ,.=12 AND ca 
fiT rg,z(1.ca-1);" 

ET x t(z(2.c a -1) , Z f 3 
GO SUB 4000 BEEP .05 .- = 

3009 IF j = 13 THEN PRINT AT rg 
1 , ca) J uUER 1," " FOR s =1 TÒ 
BEEP .007,20 BEEP .012.23: 

EP .02,30 NEXT s GO TO 3021 
3020 BEEP .001,55 GO TO 3005 
3022 PAUSE 1 PRIJSE 2 
1 LET rg =15 
AT 13,2,"INSIEME B",A 
BEEP .1,40 PRINT AT 
FLASH 1;" " BEEP .1 


, Z ( 
3 : 

BE 


LET c Ca = : 
3024 PRINT 
. 2 . W $ 

( i, c a ) 


*0 LET ca =1 


=CODE INKEY$ IF 
=1 GO SUB 4000 


j =32 
GO TO 


T 16 
r q . z 
. 50 

3025 LET i 
THEN LET rii 

3025 

3026 IF j = 14 THEN LET 
B 4000 GO TO 3025 

3027 IF ( ( J > 6 4 AND j<91) OR C.j>4 
7 AND j < 53) ) AND Ca<19 THEN PRIN 
T AT r g , z ( 1 , ca ) ; CHR$ .i LET y$(z 
( 2 . c a ) , z ( 3 . c a ) ) =CHR $ ,'i : LET rii = l 

GO SUB 4000 BEEP .15.33 
3023 IF ,.i=12 AND ca>l tHEN PRINT 


rn =0 GO SU 


AT r g , z ( 1 , c a -1 ) ; " " let rii =0 l 
ET y $ ( z (2,ca -1) , z(3,c a -1))= " 

GO SUB 4000 BEEP .05,-2 
3029 IF .j = 13 THEN PRINT AT rg ,z( 
l.ca) , OUER 1," FOR Sd TÒ 3 
BEEP .007,20 BEEP .012,23 BE 
EP .02,30 NEXT s GO TO 3041 
3040 BEEP .001.55 GO TO 3025 
3042 PAUSE 1 PAUSE 20 GO SUB 9 
000 GO TO 9400 

3110 GO SUB 5000 

3111 FOR n =1 TO sta LET e $ ( n )=f 
$ (n) LET S t =S t +1 : NEXT n 

3112 FOR n=l TO Stb: LET rx=0 F 
OR g = 1 TO sta if 1 . $ (n ) =e $ ( g ) th 
EN LET rial 

3113 NEXT g IF n=0 THEN LET e$ 
(st) Si* (n) LET stsst+1 

3114 NEXT r. 

3150 GO SUB 4200 LET ed GO TO 
9200 

3210 GO SUB 5000 

3211 FOR n =1 TO Sta FOR q=l TO 
Stb IF f$ (n) = l $ C g) THEN LET e $ ( 
S t) = f $ (n) LET st=st+l 

3212 NEXT g NEXT n 

3250 GO SUB 4200 LET ed: GO TO 
9200 

3310 GO SUB 5000 

3311 FOR nd TO Sta LET r 1 =0 F 
OR g =1 TO stb IF f $ <n) = t $(q) TH 
EN LET ri=l 

3312 NEXT g IF ri=0 THEN LET e$ 

(S t) = f$ (n) LET s t =S t +1 

3313 NEXT n 

3350 GO SUB 4200 LET 6=1 GO TO 
9200 

3410 GO SUB 5300 

3411 FOR n=l TO Sta LET ri=0 : F 
OR g=l TO Stb IF f $ ( n) = l $ ( q) TH 
EN LET n=l 

3412 NEXT Q IF ri=0 THEN LET et 
(s t ) = r' $ ( n ) LET s t =s t +1 

3413 NEXT n 

3414 FOR nd TO Stb LET r 1 =0 F 
OR 9=1 TO sta IF 1$ (ri) = f $ (q ) TH 
EN LET rial 

3415 NEXT g IF r 1 =0 THEN LET e$ 
(S t) = L $ (n) LET st=St+l 

3416 NEXT n 

3450 GO SUB 4200: LET e=l GO TO 
9200 

3510 GO SUB 5000: LET mod 

3511 FOR n=l TO Sta FOR 9 = 1 TO 
stb LET e $ ( s t)= f t(n) let e $(s t 
+ 1) = t$(g) LET s t =S t +2 

3515 NEXT 9 NEXT n IF St>1 THE 
N LET s t =s t-1 

3550 LET Z X = 2 : GO SUB 4200 LET 
e =1 GO TO 9200 

4010 LET c casca' IF rii =0 THEN LET 

ca=ca -1 IF ca <l then let ca=l 
LET c c a =1 

4011 if rii = 1 THEN LET casca+1: IF 
C5>19 THEN LET ca=19 LET rca=l 

9 

4020 PRINT AT r 9 .Z <1 . cCa) ; OUER 
1; " ",AT r g,z (l.ca) , FLASH 1;" " 

BEEP .01,46 
4099 RETURN 

4209 PRINT AT 7,4 , "A ".0 $ ( j) ; "B = 
(" LET r =7 LET' cdl 

4210 IF S t =1 THEN PRINT AT 7,11; 

4211 FOR n =1 TO St-1 STEP ZX 

4320 IF ftiO=0 THEN PRINT AT r,c;e 
t (n ) IF ri < S t -1 THEN PRINT At r . 

C +3, " , " 

4321 IF ni 0 = 1 THEN PRINT AT r,C;" 
t"; e t (n ) " , " , e $ (n + 1 ) ; ") " : if n <s 

t-1 THEN PRINT AT r,C+9,"," 

4325 IF n = s t -1 AND iiiO=0 THEN PRI 

NT AT r , c +3, " ) " 

4326 IF n=St-l AND 11 ) 0=1 THEN PRI 
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NT RT r , c +9, ") " 

4330 IF ni0=0 THEN LET C=C+4 IF 

C >23 AND n < £ t -1 THEN LET C=ll: L 
ET r=r +2 

4331 IF ni0=1 THEN LET C=C+10: IF 
C > 23 AND n<st. -1 THEN LET C=1 L 

ET r= r +1 

4399 BEEP .001,60 NEXT ri: RETUR 
N 

5010 FGR V =1 T0 6 LET e l =0 : LET 
fi =0 IF X* (V) <>q$ THEN LET el= 

1 

5011 IF £t=l THEN GO TO 5014 

5012 FOR 9 = 1 T0 st-1 IF X*(V)=f 
$ (9) THEN'LET f i=1 

5013 NEXT g 

5040 IF e 1=1 RND fi=0 THEN LET f 
$ (£ t ) =X$ (V ) LET £t=£t.+l 

5050 NEXT V LET Sta=St-l: LET £ 
t=l FOR V=1 TO 6 LET el=0 LET 

f i =0 IF y $ ( v ) < > q $ THEN LET e I- = 

1 

5051 IF St=l THEN GO TO 5054 

5052 FOR 9 = 1 TO St-1: IF y $ V V) = l 
$(g) THEN LET ri=l 

5053 NEXT g 

5080 IF e 1=1 RND ri=0 THEN LET l 


$(St)=y*(V): LET £t=£t. +1 
5089 NEXT V LET Stb=St-l: LET S 
t. =1 LET ni0=0 LET 2 X = 1 RETURN 
9010 FOR n = Li TO 18 PRINT RT n .. 


0, n $ 

9040 BEEP .0009, n*3.5 

9099 NEXT n RETURN 

9130 PRINT RT f,16-LEN £$/2, INK 


K : £ $ 

9140 LET r = r +1 BEEP .05,r*2 
9199 RETURN 

9205 IF e = 1 THEN GO TO 9220 

9210 PRINT RT 20,0," PRS5 

0 SUCCESSIUO ": FOR n=l T 

0 26 

9211 BEEP .001,67 LET j=C0DE IN 
KEY*: IF j<>0 THEN PRINT RT 20,0 
;n $ : RETURN 

9219 NEXT n 

9220 PRINT RT 20.0, "RIT ORNO RLL 
'INIZIO DELL ' OPZIONE": FOR n=l T 
0 26 

9221 BEEP .001,68 LET j=CODE IN 
KEY $ IF ,i < > 0 THEN PRINt RT 20,0 
.n $ LET Li=4 GO SUB 9000 LET 
li =5 LET r =4 LET K =5 LET £ =0 

GO TO h*1000 

9229 NEXT n 

9230 PRINT RT 20,0," RITORNO fi 
L MENU" PRINCIPALE ": FOR n=l T 


0 26 


9231 BEEP .001,69 LET .i =C0DE IN 
KEY$ IF ,.<>0 THEN PRINT RT 20.0 


;n | LET t i=4 GO SUB 9000 GO T 
0 500 

9239 NEXT n 

9299 GO TO 9200 

9330 PRINT RT r, C, INK K. i £ * 

9340 LET f=r+l BEEP .05,f*2 
9399 RETURN 

9410 DRTR ”1 0 .. 

.. UN IONE"," 2 > . IN 

TER5EZIONE", " 3 - . 

DIFFERENZA","4 < - DIFFERENZ 

fì SIMMETRICA","5 & . PRODOT 

TO CARTESIANO" RESTORE 9410 

9411 FOR n =7 TO 15 STEP 2 READ 
£$ PRINT RT n , 1 .i INK 3.;£$: NEXT 

9450 LET ,j=CODE INKEY $ IF ..i>48 
RND j <54 THEN LET ,i = j-48: PRINT 
RT 5+ 2 *.i,0; INK 6; OUER 1n $ FO 
R d =1 TÒ 3 FOR n = 10 TO 20 BEEP 
.01.0*2 NEXT n NEXT d: GO SUB 
9000 GO TO OR*1000+j*100 
9499 BEEP .001.55: GO TO 9450 

9705 DIM 2(3,19) DRTR 2,3,4,7,8 
.9.12.13.14.17.18,19,22,23,24,27 

, 23,29,30,1,1, Ì , 2,2,2,3,3,3,4, 4 , 

4,5,5,5,6,6,6,7,1,2,3,1,2,3,1,L, 
3.1.2,3,1,2,3,1,2,3,4: REoTORÈ 9 
705 

9706 FOR j=l TO 3: FOR n=1 TO 19 
READ U: LET 2 (..i,n)=U NEXT ri: 

NEXT i 

9710 LET a $="/////////////////// 
/////////////" 

9711 LET n $ = " 

" LET 

9712 LET W$ = "- - 

- - 1 2 3 4 

5 6": LET q$=" 

9799 RETURN 

9805 LET f =10 LET C=2 __ 

9810 ink 4 prwt m;r,c, rrn 

R 2; FLASH 1; BRIGHT 1;" 


9899 RETURN _ „ 

9910 POKE 23606,0 POKE 23607,q0 
9920 PRINT «l.RT 0,0, INK 1, " I 

1 

T 1,5, INK 7," © 1985 by DISCOUO 

9970 POKE 23606,80 POKE 23607,1 
95 

9999 RETURN 


questo (generatore di grafica) ri¬ 
manga uno spazio di nastro vuoto di 
tre-quattro secondi. È importante 
ricordare che, prima di eseguire il 
salvataggio, il programma del lista¬ 
to 2 va fatto girare tramite RUN, in 
modo che tutti i valori dei DATA in 
esso contenuti (h nee 1010-3099) 
vengano caricati in memoria. Quin¬ 
di, una volta battuto il listato 2 e 
salvata la copia di emergenza, si da¬ 
rà il RUN: lo schermo diventerà 
completamente bianco per circa 16 
secondi, dopodiché comparirà una 
videata che mostrerà tutti i nuovi 
caratteri grafici ridefiniti, seguita da 
un beep di conferma e dal messag¬ 


gio 0 OK, 9909: 4. Dopo aver con¬ 
trollato che non si siano caricati 
strani caratteri, si potrà procedere 
al salvataggio in byte visto prima. 

A questo punto si procederà alla 
battitura e al salvataggio del master, 
che è il terzo file ed è quello che 
contiene il programma vero e pro¬ 
prio (listato 3), che andrà salvato 
subito dopo il secondo, senza lascia¬ 
re spazi di nastro vuoto, con l’istru¬ 
zione SAVE “MASTER” LINE 1; 
si procederà quindi alla verifica del¬ 
l’esatto caricamento con VER1FY 
”” o con VERIFY “MASTER”. Se 
tutto va per il meglio si potrà riav¬ 
volgere tutto il nastro e caricare il 


programma per intero tramite il co¬ 
mando LO AD ”” o LO AD “IN- 
SIEMIST.” al fine di verificarne il 
perfetto funzionamento pratico. A 
tale scopo dovrà comparire la scritta 
di avviso “FERMA IL NASTRO" a 
cui faranno seguito in rapida succes¬ 
sione la videata relativa alle opzioni 
del menù principale e quindi le varie 
pagine video teoriche e applicative. 

Daniele Maiavasi 


Questo programma è disponibile 
su cassetta. 

L'elenco, i prezzi e le modalità 
d'ordine di questa e delle altre cassette 
disponibili sono riportati alle 
pagine 81 e 82. 
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BUDGET FAMILIARE 

Due cuori 


No, non ci crede più nessuno: per 
tirare avanti, a una famiglia più 
delle serenate serve la 
tredicesima, e oltre ad ammaliare 
bisogna saper amministrare. 
Polizze, rate in scadenza, entrate e 
uscite, affitto e bollette, crediti e 
debiti... È possibilefaredavvero 
ordine, un ordine che aiuti a 
gestirlo, nel bilancio familiare? 


e una capanna 


S coprire il trenta giugno che po¬ 
tremo permetterci solo una set¬ 
timana di ferie è un po' magra, rice¬ 
vere impreparati il conto del denti¬ 
sta dà addirittura sul tragico. Se poi 
l’automobile (che aveva solo dieci 
anni!) dà forfait, chi ce ne compra 
una nuova? 

Casi limite a parte, chi non si è 
trovato regolarmente a due passi dal 
Natale con un conto in banco troppo 
esiguo per permettergli tutti gli ac¬ 
quisti programmati? Quanti, valu¬ 
tando male il futuro, si sono impalu¬ 


dati in impegni rateali un po’ troppo 
pesanti? Non occorre essere in dieci 
in famiglia, o avere terre e miniere 
da amministrare, per accorgersi che 
un po’ di pianificazione fa solo be¬ 
ne, e che le affermazioni del tipo 
«tanto io ai soldi non ci bado» è 
meglio lasciarle perdere: infatti è 
soltanto avendo chiare in mente le 
proprie reali disponibilità finanzia¬ 
rie che si può cercare di pianificare il 
proprio futuro o, almeno, di evitare 
brutte sorprese. 1 problemi econo¬ 
mici di una famiglia non sono poi 



tanto diversi da quelli di una qual¬ 
siasi altra impresa, con la differenza 
che generalmente in famiglia vengo¬ 
no trattati in maniera molto più ap¬ 
prossimativa e con strumenti poco 
efficaci. 

Questo programma cerca di im¬ 
postare il bilancio familiare in ma¬ 
niera un po’ più rigorosa di quanto 
normalmente si faccia, tentando di 
evitare la solita confusa approssima¬ 
zione. Intuitivamente il concetto di 
bilancio è molto semplice: sommare 
da una parte tutte le entrate e dal¬ 
l’altra tutte le spese e, quindi, calco¬ 
lare la differenza. Le voci da consi¬ 
derare sono però moltissime, per¬ 
ché, si sa. il denaro scorre in mille 
piccoli rivoli... 

L'analisi del bilancio 


Questo programma, pur nella sua 
semplicità, contiene alcune impor¬ 
tanti distinzioni, che rendono più 
precisa e fedele alla realtà l’analisi 
del bilancio familiare. Per prima co¬ 
sa il problema del bilancio è stato 
diviso in quattro parti: situazione 
patrimoniale, entrate annuali, bud¬ 
get di previsione e registrazione del¬ 
le spese. 

• La situazione patrimoniale consi¬ 
ste neH’ammontare complessivo dei 
valori non consistenti in denaro li¬ 
quido: per esempio case, azioni, im¬ 
mobili, oggetti d’antiquariato ecce¬ 
tera. Questi sono divisi a loro volta 
in quattro categorie, a seconda della 
rapidità con cui è possibile conver- 
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Due cuori e una capanna? 


Listato 


100 REM - 

101 REM - BUDGET FAMILIARE 

102 REM - BV 

103 REM - MARCO OUSSONI 

105 REM - 

2O0 GOSUB8000:G0TO8300 
500 PRINTLEFT*CC0*,22)B» T"J": RETURN 
510 PRINTLEFT*<CD*,17)BK*":j" : RETURN 
520 PRI NTLEFT * < CD* ,21 >Bt- : RETURN 
550 PRINTLEFT*<CD*,22)Bt *RT*BK* l, S ' : RETURN 

60© PRINTLEFT*CCO*, 7 )|FORH*0TOTP-BTjPRINTTAB (29 > L E F7* C BK* ,8) sNEXTiRETURN 

620 PRI NTLEF T*CCD* , 2 > i FORH= 1 T020 s PR I NTT AB C1 1 >LEFT*<BK*,26)sNEXT :RETURN 

640 PRI NTLEFT# <CD*, 3>TABC20 > LEFT* < Bt *, 19)RT*:FORK=0TO10tIFK*30RK«60RK»9THENPRINT 

650 PRINTTAB< 30)LEFT*.BK*,8>sNEXT t RETURN 

660 A=5 s IFTP=12THENA=4 

670 PR I NTLEF 7 * C CD* , A ■> s FORK-0TO1 5 : PR I NTT AB •' 23 > LEFT * C BK * . 1 4 > s NEXT : RE TURN 
900 H=0 :N*= " " : POKE204 .. 0 
905 GETA*sIFA*=""THEN905 
9 10 POKE204 , 1 : POKE207, 0 : PR I NT " ||" ; 

915 IFA*=CHR*C20 > ANDH! 0THENPR' I NTA* ; sH-H-lsW*=LEF T*( W*,H>«POKE204 ,0 :GOTO905 
920 IFh*=RT t THENRETURN 

925 IFA*=CHR* C34>ORA*=" : "ORA*=" , "ORA*=" ; “ORA* C" "ORA*>"<-"THENPOKE204,8sGOTO905 

930 I FH>*L THENPQKE204 , 0 : GOT 0905 

935 PRINTA*;sW*»W*+A*sH-H+lsPOKE204,0sGOTO905 

1000 REM - 

1001 REM - SALVA BUDGET 

1002 REM - 

1010 GOSUB50G SPRINT" 3T>«! SCO 0 SBASIRÒ ? " ; :L=1 sGOSUB900:O*=W* 

1 020 IFD*0"D"ANDO*<>"N"THENS350 

103O GOSUB500 SPRINT "MESE DELL'ULTIMO INSERIMENTO <1-.12> " ; sL=2 sGOSUB9O0 
1040 W=VALCW*>-1 s IFW<0ORW> 1.2THEN8350 

1050 GOSUB500sPRINT" NOME FILE s " ;sL=1 © 8 GOSUB900 sN*=M* sIFW*=" "THEN8350 

1060 IFD*= "N"THEN130© 

1 080 OPEN15,8 , 15 s 0PEN2,8,2, N*+ ",S,W " 

1090 INPUT* 15, E s IFE>19ANDEO63THENGOSUB50©SPRINT" ERRORE "E sGOSUB1900 sGOTOl 170 
1100 CL0SE2 «CL0SE15 s IFE<63THEN1 13© 

1110 GOSUB50© s PR I NT "FILE ESISTENTE. CONTINIJO C S/N .* " s s L = 1 5 G0SUB9G© 

1120 IFU* <> " S" THEN117© 

1130 0PEN2,8,2,"@0s"+N*+ M ,S,W"sGOSUB508sPRINTTABC 10)"a SALVATAGGIO IN CORSO " 

1140 PRINT#2,WsFORI«0TO71SFORJ-OT02sPRIN -r *2.PT<I,J>sNEXTJiNEXTI 
1 150 FORI-0TO1 1 sFOR..T»0TOW :PRINT#2,SFX<I,J> sNEXTJ sNEXTI 
116© FORI=0TO12sFORJ»0TO<W+l)*4-l |FRINT#2,SVX< I,JT> sNEXT.1 sNEXTI 
1170 CL0SE2SGOTO8350 
1300 GOSUB50Os OPEN1 , 1 ,1, N* s GOSUB550 

1310 PRINT#l,WsFORI-©T071sFOR J-OT02 SPRINT#1,PT < I, J>sNEXTsNEXT 
1320 FORI*0TO1 1sFOR T=0TOW SPRINT# 1,SFXC I,J) sNEXT sNEXT 
1330 FORI-0TO12 :FOR J=0TO<W+1 >*4-1 sPRINT#l,SV/SCI,J>sNEXT sNEXT 
1340 CL0SE1SG0T08350 

1 90© POKE 1 98,0 s MAI T 197,63,64 s POKE198,0 : RETURN 

1950 GOSIJB500sFRI NT"CONFERMI LA TERMINASI ONE <S/N> ? ";sL-1sGOSUB900 
1960 IFU*<> "S" THEN8350 
1970 PRINT"3"sEND 

2000 REM - 

2001 REM - CARICA BUDGET 

2002 REM - 

2010 GOSUB50© SPRINT" at'SZ SCO 0 iMPSTFO "> " } sL=l SGOSUB900 sD*=W* 

2020 I FD*C> " D " ANDOtO" N " THEN8350 

2030 GOSUB500SPRINT" NOME FILE s " ;sL=10sGOSUB900sN*«W*sIFN*=""THEN8350 

2040 IFD* ="N" THEN2300 

2050 0FEN15,8,15 s 0PEN2,8,2,N*+",S,R" 

2060 INPUT#15,E sCLOSE15 s CL0SE2 s CLOSE15 

2070 IFE=62THENG0SUB500 sPRINTTAB(11)' U NON L' HO TROVATO ■' sGOSUB19008GOTG8350 
2080 IFE>19THENGOSie500sPRINTTAB(12)“a ERRORE #"STR*CE>“ " sGOSUBl900SGOTO8350 
2G85 GOSUB5O0 SPRINTIABC 10)"S» CARICAMENTO IN CORSO " 

2090 0PEN2 ,8,2, N* + " , S ,R"|INPUT#2,W 

2100 F0RI-0T071 sFOR J=0TO2 11NPUT #2,PT(I, J) sNEXTsNEXT 
21 IO FORI=0T011SFORJ-0TOW s INPUT#2,SFX<I,J)sNEXTsNEXT 
2120 FORI=OTO12sFORJ»0TOCW+l •♦4-1s INPUT#2,SVXCI, sNEXTsNEXT 
2130 CL0SE2 s GOTO8350 

2300 GOSUB500 s PRI NT "□"ss OPEN1,1,0, N* s G0SUB55© 

2310 INPUT# 1 , W sFORI=07 07 1 sFORJ=0TO2 sINPUT#1, PTC I,J> sNEXT sNEXT 
2320 FORI-O T011sFOR J-0TOW s I NPUT#1 ,SFX <I,J ) s NEXT sNEXT 
2330 FORI»0TO12sFORJ«0TOCN+l)*4-l s INPUT# 1 ,SVX<I,J)sNEXTsNEXT 
2340 CLOSE1SGOTO8350 

3800 REM - 

3001 REM - SITUAZIONE PATRIMONIALE 

3002 REM - 

30O5 FRI NT" 3 d SITUAZIONE PATRIMONIALE fl":A «20 (continua) 
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tirli in denaro contante in caso di 
necessità: a vista, a breve termine, a 
medio e lungo termine, proprietà 
personale. Sempre nella situazione 
patrimoniale vanno registrate le 
passività come i mutui, i saldi delle 
carte di credito, i debiti personali 
eccetera. 

• Per entrate annuali si intendono 
tutte le entrate di ogni tipo, quindi 
non soltanto i salari o gli stipendi, 
divise nelle seguenti quattro catego¬ 
rie: redditi netti da lavoro, redditi 
netti da capitale, pensioni e rendite, 
e infine altri redditi. La stima delle 
entrate, essendo annuale, va effet¬ 
tuata in base a quanto verificatosi 
l’anno precedente; in generale con¬ 
viene sempre approssimare queste 
cifre per difetto: è una norma pru¬ 
denziale per evitare previsioni esa¬ 
geratamente ottimistiche. 

• Nel budget di previsione occorre 
dare, in base al rendiconto dell’an¬ 
no precedente, una stima delle spe¬ 
se possibili per l'anno in corso. Que¬ 
sti preventivi, che servono da riferi¬ 
mento durante l’anno per controlla¬ 
re eventuali scostamenti esagerati, 
sono raggruppati in due categorie di 
spese: fisse e variabili. 

• La registrazione delle spese avvie¬ 
ne in due modi: mensilmente vengo¬ 
no inserite le spese fisse inevitabili 
(il telefono, il gas, il riscaldamento, 
le tasse eccetera); settimanalmente, 
invece, vengono inserite le spese va¬ 
riabili, cioè quelle che, in generale, 
dovrebbero essere affrontate con 
quello che resta delle entrate una 
volta detratto il necessario per le 
spese fisse: vitto e ristorante, abbi¬ 
gliamento, hobby e vacanze ecce¬ 
tera. 

Occorre precisare che il program¬ 
ma considera ogni mese costituito 
rigidamente da 4 settimane, per un 
totale di 48 in un anno. Questo fatto 
da una parte svincola il programma 


e l’utente dalle date e dai riferimenti 
al calendario, ma dall’altra rende 
necessario considerare più elastico 
il concetto di settimana. È opportu¬ 
no infatti considerare la settimana 
non come un periodo fisso di sette 
giorni, dal lunedì alla domenica, ma 
piuttosto come un quarto di mese, e 
di conseguenza un po' più lunga. 

La situazione patrimoniale e le 
entrate annuali dei componenti del¬ 
la famiglia vengono trattate separa¬ 
tamente, mentre il budget di previ¬ 
sione è diviso in due parti: rendicon¬ 
to e previsione. Le spese che vengo¬ 
no registrate, sia mensilmente sia 
settimanalmente, sono invece fami¬ 
liari. 

Come funziona 


Caricato il programma e dato il 
run, compare il seguente menù 
(principale): 

A CARICA 
B SALVA 
C PATRIMONIALE 
D ENTRATE ANNUALI 
E BUDGET PREVISTO 
F INS. MENSILE 
G INS. SETTIMANALE 
H BILANCIO 
I GRAFICI RICAP. 

J FINE PROGRAMMA 


Prima di passare a descrivere i va¬ 
ri comandi del menù è però necessa¬ 
rio spendere due parole sulla strut¬ 
tura generale del programma. Ogni 
comando del menù principale, 
esclusi quelli di terminazione di ca¬ 
ricamento e di salvataggio del bud¬ 
get, si articola in un sottomenù loca¬ 
le. Ogni volta che a una richiesta del 
programma viene inserito per erro¬ 
re un dato illegale o il carattere vuo¬ 
to. automaticamente viene ripropo¬ 
sto il menù di livello supcriore, fino 


a tornare al menù principale; da 
questo è possibile uscire solo con il 
comando di fine programma. Ecco 
ora analizzati i vari comandi. 

A) Serve per caricare tutti i dati di 
un budget precedentemente salvato 
su disco o su nastro. 

B) Registra il bubget in memoria 
sul disco o sul nastro. Viene richie¬ 
sto l’ultimo mese in cui sono stati 
inseriti dati, per evitare di salvare 
dei dati inutili e quindi sprecare spa¬ 
zio sul disco e tempo di attesa. Se A 
o B operano sul disco eseguono an¬ 
che alcuni controlli sulla validità de¬ 
gli input ricevuti, segnalando, per 
esempio, tutti gli eventuali errori 
nel drive con il codice DOS dell’er¬ 
rore, oppure avvertendo esplicita¬ 
mente in caso di file non esistenti. In 
caso di aggiornamento di un budget 
già registrato viene sempre chiesta 
conferma prima di eseguire un re¬ 
place. Con queste disponibilità è 
molto facile mantenere sotto con¬ 
trollo il dischetto, per esempio nel 
caso si voglia elaborare più di un 
bilancio familiare. Ogni budget 
completo di tutti i dati relativi all’in¬ 
tero anno occupa sul disco 20 bloc¬ 
chi; se ne possono quindi archiviare 
moltissimi. 

C) Questo comando serve per in¬ 
serire tutti i dati relativi alla situa¬ 
zione patrimoniale. Viene presenta¬ 
to il seguente sottomenù: 


1 ATT. A VISTA 

2 ATT. A BREVE 

3 A MEDIO/LUNGO 

4 PROP. PERSONALE 

5 PASSIVITÀ 

6 RIEPILOGO 

7 RITORNO MENÙ 


I primi cinque comandi consentono 
l’inserimento delle rispettive cate¬ 
gorie patrimoniali e delle passività, 
mentre il sesto propone una tabella 


BTrAHcin 


SCITI MANALE 
TRIMESTRALE 
RITORNO MENU * 


LA TUA SCELTA 


MENSILE 

ANNUALE 




B U 0 G E T F 

A M 

I L 

1 A R E 

u 

CARICA BUDGET 

■ ■ 

SALVA 

BUDGET 

■•a 

PATRIMONIALE 

m>m 

ENTRATE ANNUALI 

mm 

BUDGET PREVISTO 

mm 

INS. 

MENSILE 

mm 

I. SETTIMANALE 

aia 

BILANCIO 

mm 

GRAFICI RICAP. 

■■ 

FINE 

PROGRAMMA 


LA TUA SCELTA : 

■ 




Figura 2 Tre delle videate principali che governano il programma BUDGET. 



LA TUA SCELTA 
AU AH I 1 

m±m DIRETTO 


INDIETRO 

RITORNO AL MENU' 
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Due cuori e una capanna? 


3010 PRINTLEFT#cCD#,7>"5) 1 ■ ATT. R VISTA"TAB<A> M J} 2 m ATT. fi 
BREVE*}" 

3020 PRINT" iJ 3 ■ fi MED I O/LUNGO" TfiB < fi > "d 4 ■ PROP. PERSONAL EST* 
3030 PRINT"d ? 1 PASSIVITÀ' "TfiB(fi) 6 U RIEPILOGO*]" 

3040 PRINT ".a 7 ■ RITORNO MENU '3" 

3050 G0SUB510 : PRI NT SCI’ ; : P0KE204,0 
306O GETfi#:IFfi#=""THEN306© 

3065 POKE204, 1 : POKE207,0 : PR I NT •• " 

3070 A*VRL<fi#>: IPfiC1ORA>3 THEN3050 

3075 OHAGOT03209,3300 , 3400 , 3500,3600,3700,8300 

3200 PRINT-aa ATTIVITÀ' fi VISTA 

3210 Pl#="fi VISTA":BT=0:TP=2:GOTO3800 

3300 PRINT"33 ATTIVITÀ' fi BREVE TERMINE 

3310 Pl#="fi LUNGO E MED10 " :BT=3 :TP*12 :GOTO3800 

3400 PRINT "ZlTJ ATTIVITÀ' fi MEDIO E LUNGO TERMINE 

3410 PI7="fi MEDIO E LUNGO" :BT*13 : TP*16 :GOTO3800 

3500 PRINT"Zia PROPRIETÀ' PERSONALE 

3510 Pl#="PROPRIETÀ' PERSONALE":BT=17:TP=21:GOTO380O 

3600 PRINT"33 SITUAZIONE DELLE PASSIVITÀ' 

3610 P1 #= " PASS IV ITA'" :BT =22 : TP=27 : GOTO3800 
3700 PRINT"Zia RIEPILOGO SITUAZIONE PATRIMONIALE 
3705 PRINTLEFT#<CD#, 25 V a PI ■ SELEZIONE"TfiB': 1 9 :■ "a F7 
I RITORNO MENU’S" 

3710 PRINT" SUTtMBF lTT■ fi VISTA*}"RT#"ATT. fi BREVE*J"RT#"ATT. fi 
MED I Or 'LUNGO*]" 

3714 PRINT"PRQPRIETÀ' PERSONALE*]"PT#"TOTALE ATTIVITÀ'*}" 

3715 PRINT"PASSIVITA'*]"RT#"TOTALE NETTO " 

3718 GOSUB3900 : ,T=0 :GOTO3750 

3720 GOSUB500:PRINTSC#: :P0KE204,0 
3725 GETfi*:IFfi*=""THEN3725 
3730 POKE204,1:POKE207,1:PRINT" " 

3735 I Fft#= "||" THEN3000 

3740 IFAT0"gj"THEN3720 

3745 J= T+1 : 1 FJ>3THEN.1=0 

3750 PR INTLEFT# < CD#.. 3> TAB<27 :• T # ■: J > " *}" 

3755 FORH=0TO6:fi#=RIGHT#<" "+STR#<RP<H,J>>,8> 

3760 PRINTTAB<2S>A# "*]" :NEXTH 
3765 GOT03720 

3800 0=8 :U=3:IFBT>46THEN0=4;U=6 

3803 PRINTLEFT# < CD#, 25 V- a 1 ■ INSERIMENTO" TfiBC 19.'' "a 2 
■ RITORNO AL MENU'a" 

3805 PR I NT " aaSSÈfir P1*; : PR IN TT AB < 27 > T* < Q >" *]" 

3810 FORI =BTTOTP : PR I NT V# 1 I > T AB < 37-LENCSTR* ' PT< I ,8'>>)>PT 
CI,0> : NEXT : I =BT : J*Q 
3815 GOSUB5O0 rPRINTSC#;:POKE204,0 
3820 GETfi*:IFA#=""THEN3820 
3825 POKE204.1 :POKE207,0 : PRIN T" " 

3830 IFA*="2"THEN4800 
3835 I FATO » 1 " THEN3815 

3840 IFI>TPTHENI=BT 

3841 IFI<&• TTHENI = TP 

3842 GOSUB500 : PR I NT " a" V# ( I > TfiB < 16 > " . 

3845 GETfi*: IFfi#="*J"THENI = I + l ;GOTO:-:S40 

3847 IFfi#= "||"THENJ*..T+1 :G0T03861 

3848 IFfi#="||"THENJ*J-1 SG0T03861 
3850 IFA#=RT*ANDJ >Q- 1 THEN3890 
3852 IFA#="3"THEN1*1-1:G0T0384G 
3855 IFA#= " ||" THEN3S15 

3860 G0T03845 

386 1 IFJ=Q-2THEN.r*U -1 

3865 GOSUB6O0 : IFJ*UORJ'<QTHENJ*U :GOT03875 
3867 PRIMI "MMMMM iPRINTTAB' 27>T#CJ > "*}" 

->8i 0 FORT «BTTOTP :PR:INTTfiB' 29 'RIGHI* 1 " "+ 51^1 <■ p*rr 

■1-0 ■ > ,8> : NEXT: GOT 03845 

3875 PRI NT " 3*21*22!! " TAB•: 27 > T* • 1 > "*}" : IFBT : 46THEN 3878 

3877 FORH=BTTOTP:D=0:FOFT- =0T02 :D=0+PT ■: H . K » : NEXTK;GOTO3S80 

3878 FORH*BTTO T P :D«PT' H., 1 >-PT<H,0> 

3880 D#*RIGHT#>: " " +STR* >: D ,8 > : PRINT TAB'28 >0* : NEXT • 

1=0-1 :GOTO3845 


3890 PR I NTLEFT# ■: CD# , 22> TAB < 16»" : " • 

3892 L= 7 : G OS UB 9 0 O : LI = V fi L ■ Li # :■ : IF''W=8ANDW* " o • 

3895 PPI NTLEF T# CD# ,8+1-BT ■ TAB< 29 > RIGHT#< « * 

3897 PT< I J-Q > =w : GOTO3840 

3900 FORL=0TO3:F0PH=0T02:S=0 

3905 FORK=S 1 V. <L > TOS1 V. < L+1... - 1 

39 10 S=S+PT ■ K , H > : NEXTK 

39 15 RPCL,H)=S:NEXTH:NEXTL 

3920 FORL=0TO3 :S*0:FORH=0TO2 

3925 S=S+RP L , H ;■ : NEXTH : RP < L , 3 > =3 : NEXTL 

3930 FORH-0TO3 :S=0:FORL=0TO3 


>ORW#=""THEN3840 

" + .r 3 > 


riassuntiva della situazione patri¬ 
moniale. Le modalità di inserimen¬ 
to dei dati (uguali per qualsiasi cate¬ 
goria di input) sono tali per cui tutte 
le cifre introdotte vengono interpre¬ 
tate in migliaia di lire: se per esem¬ 
pio fosse necessario inserire la cifra 
12.123.875 si dovrebbe effettuare 
un arrotondamento e digitare sol¬ 
tanto 12124. All'interno di ogni fase 
di inserimento è necessario operare 
in questo modo: sulla sinistra dal¬ 
l'alto al basso compaiono tutte le 
voci in cui è possibile inserire la spe¬ 
sa, mentre nella colonna a destra 
sono rappresentate le cifre fino a 
ora presenti. La colonna di destra 
ha una intestazione che specifica, a 
seconda del tipo di inserimento, a 
quale componente della famiglia va 
attribuito, oppure qual è il periodo 
di tempo a cui il dato si riferisce. 
Sotto a questo tabellone resta la li¬ 
nea di controllo, da cui il program¬ 
ma attende tutti 1 dati in ingresso, e 
infine a fondo pagina è riportato, 
generalmente, un riassunto dei co¬ 
mandi disponibili in quella fase del 
programma. Quando si entra in in¬ 
serimento la linea di controllo viene 
sostituita dalla prima voce tra quelle 
appartenenti alla categoria corren¬ 
te, cioè la prima partendo dall’alto. 
Per effettuare un inserimento è 
quindi necessario posizionarsi verti¬ 
calmente per scegliere la voce che 
interessa e orizzontalmente per sce¬ 
gliere il componente della famiglia, 
o il mese (la settimana) di riferimen¬ 
to nel caso degli inserimenti periodi¬ 
ci. Questo movimento è controllato 
dai due tasti del movimento del cur¬ 
sore: ì movimenti verticali scandi¬ 
scono le voci della pagina corrente, 
mentre quelli orizzontali permetto¬ 
no di cambiare la colonna di destra. 
Una volta posizionati correttamen¬ 
te, è necessario premere return per 
comunicare l’intenzione di inserire 
un dato; come risposta viene visua¬ 
lizzato il cursore accanto alla linea 
di controllo: ora si può procedere 
all’inserimento. Se viene digitato un 
dato illegale o il carattere vuoto (so¬ 
lo il tasto di return), l’operazione 
non viene eseguita e il cursore scom¬ 
pare. A questo punto si può ripetere 
il posizionamento o uscire dalla fase 
di inserimento premendo F7. 

D) Entrale annuali è il comando 
che consente l'inserimento delle 
previsioni delle entrate annuali del¬ 
la famiglia, ripartite tra marito e 
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moglie oppure cumulate. È presen¬ 
te una quarta colonna che riporta 1 
totali per riga, dove chiaramente 
non è possibile inserire. In questa 
fase è disponibile il seguente sotto¬ 
menù: 


1 DA LAVORO 

2 R. DA CAPITALE 

3 PENSIONI 

4 ALTRI REDDITI 

5 RIEPILOGO 

6 RITORNO AL MENÙ 


E) Con il budget di previsione 
vengono inseriti il rendiconto delle 
spese dell’anno precedente e la pre¬ 
visione stimata per l'anno in corso, 
ripartita tra le voci delle spese fisse e 
delle spese variabili. Anche in que¬ 
sto caso è presente una terza colon¬ 
na che non viene utilizzata in inseri¬ 
mento, ma riporta le differenze, vo¬ 
ce per voce, tra rendiconto e previ¬ 
sione. Ecco il sottomenù: 


1 FISSE (A) 

2 VARIABILI (B) 

3 RIEPILOGO 

4 RITORNO AL MENÙ 


F) II comando inserimento mensi¬ 
le serve per le spese fisse, mano a 
mano che vengono rilevate. L'ulti¬ 
ma riga riporta il totale delle spese 
fisse del mese corrente, mentre la 
tredicesima colonna rappresenta i 
totali, voce per voce, delle rilevazio¬ 
ni fino a quel momento inserite. 

G) L’inserimento settimanale, 
analogo a quello mensile, tratta pe¬ 
rò le spese variabili ed è articolaro 
su 48 colonne (4 settimane per me¬ 
se). In questa fase è disponibile an¬ 
che il comando di indirizzamento di¬ 
retto sulla settimana su cui si vuole 
operare: F5;se si desidera per esem¬ 
pio inputare sulla terza settimana di 
giugno, occorrerà digitare 23. 

H) Il comando bilancio consente 
di “tirare le somme” per un certo 
periodo in cui si è già effettuato l'in¬ 
serimento dei dati relativi. Ecco il 
sottomenù corrispondente: 


1 SETTIMANALE 

2 MENSILE 

3 TRIMESTRALE 

4 ANNUALE 

5 RITORNO MENÙ 


Per ogni bilancio viene richiesto il 
periodo interessato: per esempio 


3935 S=S+RP<L,H>:NEXTL:RP<4,H> =3 :NEXTH 
3940 FQRH=0TO2 :S=@ :F0RK=22T02? 

3945 S-S+PT< K,H>:NEXTK:RP<5,H 1 =S:NEXTH 
3950 S=0:FORH=0TO2:S=S+RP <5,H >s NEXTH 
3955 RP<5,3>=S 

3960 FORH=0TO3 : RP < 6, H > -RP C 4 , H > -RP <5,H > 

3965 NEXTH:RETURN 

4000 REM-—— —- 

4001 REM - ENTRATE ANNUALI 

4002 REM - 

4005 PRINT"33 ENTRATE ANNUALI 8":A=19 

4010 PRINTLEFT*<CD*. 7V3 1 1 P. DA LAVORO"TAB<A ■ " 13 2 i! R. DA 
CAPITALE*]" 

4020 PRINT"3 3 ■ PENSIONI "TRB<A>"fl 4 ■ ALTRI REDDITI*]" 

4030 PRINT "3 5 ■ RIERI LOGO " T AE: (ft)"3 6 ■ RITORNO AL MENU'" 

4050 G0SUB510:PRINTSC*: : PORE204,0 

4060 GETA*: IFA*=""THEN4060 

4065 POKE204.1 :POKE20?,0 :PRI NT" » 

4O70 A=VAL < A*>: IFA<1ORA>6THEH4050 
4075 ONAGOTO4200.4300., 4400,44504500,8300 
4200 PRINTREDDITI NETTI DI LAVORO 
4210 PI*="R. DI-LAVORO » : ET=28 :TP=31 :GOTO3300 
4300 PRINT"33 REDDITI NETTI DA CAPITALE 

431© P1*="R. DA CAPITALE":BT=3£:TP»37sO0TO3800 
4400 PRINT"33 PENSIONI E RENDITE 

4410 PI*="PENSIONI E RENDITE":BT*38:TP=41:GOTO3800 
4450 PRINT"33 ALTRI REDDITI 

446© PI"ALTRI REDDITI":BT=42sTP=46:GOTO3S0@ 

4500 PRINT"33 RIEPILOGO ENTRATE ANNUALI 

4505 PRTNTLEFT$<CD$,25>"3 FI B SELEZI ONE " T AB ■' J 9 > " 3 F? i 
RITORNO MENU'8" 

4510 PRINT» «MMBM ?. DA LAVORO*]" PT * " R. DA CAPI TAL E*J"RT* 
"PENSIONI/RENO ITE*]" 

4514 PRINT"ALTRI REDDITIH”RTf"TOTALE REDDITO" 

4518 GOSUB4600 : J=0:GOTO4550 
4520 GOSUB500 : PR I NTSC*: P0KE204,0 
4525 GETA*:IFA*=""THEN4525 
4530 POKE204,1sPGKE207,1 :PRINT" " 

4535 I FA*= " ||" THEN4000 

4540 I FATO"i" THEN4520 

4545 ,T=J+1 :1FJ>3THENJ=0 

4550 PRINTLEFT*<CD*,3> TAB<27 > T*<J>"g- 

4555 FORH=0TO4;A*=RIGHT*<" “+STR*<RPCH,J>>,8) 

456G PR INTTAB <29> A* " *]" : NEXTH 
4565 GOTO4520 

4600 FORL=0TO3tFORH=0TO2:S=0 

4605 FORK*S1 X <L+5 >TOS1 X< L+6 >-1 

4610 S=S+PT<K,H>:NEXTK 

4615 RP < L,H>*S:NEXTH:NEXTL 

4620 FORL=0TO3:S-9 sFORH=0TO2 

4625 S=S+RP<L,H>:NEXTH:RP < L,3>=S:NEXTL 

4630 FORH=0TO3 :S=0 :FORL=0TO3 

4635 S=S+RP<L,H>:NEXTL:PP<4,H>«S sNEXTH 

4665 RETURN 

4800 IFBTC28THEN3080 

4810 IFBTC47THEN4000 

4850 GOT05000 

5000 REM--- 

5001 REM - BUDGET DI PREVISIONE 

5002 REM - 

5005 PRINT"33 BUDGET DI PREVISIONE 3":A=19 

5010 PRINTLEFT*(CD*, 7> " 3 1 1 FISSE <AVTAB<A>"g 2 m 

VARIABILI <B>*]" 

5020 PRINT" 3 3 1 RIEPILOGO"TAEVA>"3 4 M RITORNO AL MENU'" 

5050 G0SUB510 :PRINT" "SC*; :POKE204 ,Q 

5060 GEIA*: IFA*=""rHEN5060 

5065 POKE204,1 :POKE207,© :PRINT" " 

5076 A=VAL '• A* > :IFA<1ORA>4THEN5050 
5075 ONAGGTO52005300,5400,8300 

5200 PRINT"33 PREVISIONE DELLE SPESE FISSE <A> 

5210 PI*="SPESE FISSE <A)":BT=47:TP=58:GOTO3800 
530O PRINT"33 PREVISIONE DELLE SPESE VARIABILI <B> " 

5310 Pl*="SPESE VARI ABILI <B>" : BT=59:TP=71 :GOTO380G 
5480 PRINT"33 RIEPILOGO COMPLESSIVO 

5405 PRINTLEFT*<CD*,25> "3 FI B SELEZIONE"TAB< f9>"3 F7 1 
RITORNO MENU'8" 

5410 PRINT"aSISÈISJSPESE FISSE <A>g"RT*"SPESE VARIAGLI <EOg" 

5414 PRIMI"TOTALE SPESE <A+B>*]"RT*"TOTALE ENTRATE*]" RT* 
"SURPLUS 0 DEFICIT" 

(continua) 
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5418 GOSUB5900 : ,T=4 : GQTO5450 
5420 GOSUB500:PRINTSC*; :POKE204,0 
5425 GETR*:IFfi*=""THEN5425 
5430 POKE204,l:POKE207,1SPRINT" " 

5435 IF h* = " II" THEN5000 

5440 I FA* O "1" THEW5420 

5445 J=J+1:IFJ>6THENJ=4 

5450 PRI NTLEFT* < CD*, 3> TRE'< 27> T*< J) "B" 

5455 FORH=0TO4:fì*=RIGHT*<" "+STR*<RPCH,J-4>>,S> 

5460 PPINTTRB<29>R*"fi"sNEXTH 
5465 DOT05420 

5900 FORL=0TO1 sFORH=0TO.l :S=0 

5905 FORK=S15iC9+L>TOSl.*;< 10+L>-1 

5910 S»S+PT<K,H> : NEXT :RP <L , H ) =8 sMEXT sNEXT 

5915 FORL=0TO1sRP<L,2>=RP<L,1 >-PP<L,©>jNEXT 

5920 FORH=0TO2 : RP < 2 , H > =RP < 0H .• +RP < 1 , H > sHEXT 

5925 S=0 : F0RH=28T046 : FORK=0TO2 : S=S+PT H , K > : NEXT : NEXT 

5930 RP < 3,0 > =S : RP < 3,1 >=S : RP < 3 ,2>=0 

5935 FORH-0TO2:RP<4 , H >=RF<3>H >-RP<2,H>:NEXT 

5940 RETURN 

6000 REM - 

6005 REM - INSERIMENTO MENSILE 

6010 REM - 

6015 PRINT " 2*3 INSERIMENTO MENSILE SPESE FISSE 
6018 F'1T= "SPESE FISSE" :BT*0 :TP®11 

6020 PRINTLEFT* < C0 * , 2 5 > " fl 1 ■ INSERI MENTO " TRE <19 > " 
il 2 ■ RITORNO RL MENU 'ij" 

6025 PR I NT " MUflM T IT; : PR INTTRB< 3© >ME* < 0 ) " B" 

6030 FORI=BTTOTP:PRINTV*<I+47>TRB<37-LEN<STR*<SFX<!,&)>>>SFX 
O. ,0> «NEXT 

6033 PR I NT " TOTRLE " : I=BT : 7=0 : G0SUB6300 
6035 GOSUBS00;PRINTSC*; :PGKE204,0 
6040 GETR*:IFR*=""THEN6040 
6045 POKE204,1 :POKE207,0 ;PRINT " " 

6050 IF R*="2"THEN8300 
6055 IFR*<>"1"THEN6035 
6060 IFI>TPTHENI-BT 
6062 IFI<BTTHENI=TP 

6065 GOSUB500: FRI NT "ij"'■/*■.. 1+47 7 TRE' 16>"i: "j 
6070 GETR*: IFR*=" B" THENI = I +1 :GOTO6068 
6072 IFR*="3"THENI=I-1SGOTO6060 

6075 I FR*= " KJ” THENJ=J+1 ;GOTG6092 

6076 IFR*= "||" THEN 7=J-1 :GOTO6092 
6080 IFfl*=RT*RHDJ>-1THEN6130 
6085 I Ffl*= " ||" THEN6035 

6090 GOTO607© 

6092 IFJ=-2THEN.J= 11 


6095 G0SUB66G: IFJ=120PJ=-1THEN6 1 10 
6100 PR I NT " aftlUftTM " : PR I NTTRB < 37-LEN < ME * < J> > >ME*< J> ' 
6105 S=0 : F0RK=BTT0TF' ; PR I NTTRB <29 > RIGHT* < " 

< K , J 0,8 7 

6107 S*S+SF::<K. J>jNEXT;PRINTTRB<297RIGHT*(" 
;GOTO6070 


"+STR*<SFX 


"+STR*<S>,87 


6110 PR I NT" SfcftftIKm " TRB<27.7 T* < 3> "B" 

6115 8=0 sFORH=BTTOTF' :D=0 :FORK'=0TO11 :D=0+SF*;' < H, K> sNEXTK :S=S+D 
6120 D*=RIGHT*<" " +STR*<0,8) :PRINTTRB<29>0* :NEXTH 

6125 S*=RIGHT*<" "+STP*c S.7 ,87 : PR I NTTRB < 29 ÌS* ;.T=-1 • 

GOTO607R 


61 30 
6135 

6140 

6145 

6380 

6310 

6320 

6500 

6501 

6502 
6515 
6518 
6520 

6525 

6530 

6533 

6535 

6540 


16 > " : 

; IF < W=0RNDM*O " © * 


PRINTLEFT*<CD* , 22 7 TRB 
L = 7 ; GO8UB900 ; W-VRL <W* 

"ORNO327677 HEN6065 
PRINTLEFT*'CO*,8+ 1 -BT 7 TRB<29>PIGHT* < " 
SFJi< I , J )=W : GOSUB6300 ; GOT06065 
S=0 sFORI -BTTOTP:S=S+SFX<K, J7 sNEXT 
PRINTLEFT* < CO* , 20 7 TRB < 29 >R I GHT* ■ " 
RETURN 

REM- 

REM - INSERIMENTO SETTI MRNRl E - 

REM- - - 

PRINT "3BI NSER I MENTO SETI IMRNRLE SPESE 
PI*■;• SPESE VARIABILI" :BT=0;TF = 12 


)ORW*=" 


"+W*,8) 


"+STR*<S7,8> 


VARIABILI" 


PRINTLEFT*.,CD* ,25 -' j. ■ INSERIMENTO"TRB r 19> "B 2 


F' I TORNO RL MENU ' 5J 
PR I NT " SJBtìSlSJ" Pi*; s PR I NTTRB< 26 > ME* < 0 )'V 1S . W" 
F OR I =BT TOTP : PR INTV* < I +59 • T RB < 37-LEN < STR* •' S‘. 
<1,07 JNEXT - ' 

PRINT"TOTRLE" ; I=BT : ,T=0 :GOSU86?00 
GOSUB50O ; PRINTSC* : :POKE204,0 
GETR* ; IFR*=""THEN6540 


!,0>>>>SVJi 


(continua) 


per il bilancio settimanale un nume¬ 
ro da 1 a 48 indica la settimana e il 
mese, con le modalità già viste al 
punto precedente. Per ogni bilancio 
vengono riportate le seguenti quan¬ 
tità: 

- spesa fissa complessiva (a) 

- spesa fissa media prevista 

- scostamento dalla media 

- spesa variabile complessiva (b) 

- spesa variabile media prevista 

- scostamento dalla media 

- spesa totale complessiva (a-Fb) 

- spesa totale media prevista 

- scostamento totale dalla media 

- totale medio delle entrate per 

quel periodo 

- surplus o deficit risultante 

I) I grafici di ricapitolazione con¬ 
sentono di visualizzare graficamen¬ 
te, per mezzo di istogrammi bidi¬ 
mensionali, le spese complessive, 
fisse e variabili, rilevate in un certo 
periodo. Anche in questo caso è 
presente un sottomenù: 


1 SETTIMANALE 

2 MENSILE 

3 ANNUALE 

4 RITORNO MENÙ 


Una volta specificato il periodo da 
rappresentare, viene visualizzato 
ristogramma, dove vengono ripor¬ 
tate sulle ascisse le 12 voci delle spe¬ 
se fisse e le 13 di quelle variabili 
codificate con le lettere alfabetiche 
da A a Y compresa. Sulle ordinate 
sono rappresentati gli importi relati¬ 
vi, naturalmente in migliaia di lire. 
Una volta disegnato il grafico, sono 
disponibili i seguenti comandi: 
F1-F3 Incrementano il top della 
scala 

F2-F4 Decrementano il top della 
scala 

F5 Visualizza la tavola delle associa¬ 
zioni simboliche 
F7 Riporta al menù 
CTRL 1 Cambia il primo colore del- 
l’istogramma 

CTRL 2 Cambia il secondo colore 
CTRL 3 Cambia il colore del bordo 
CTRL 4 Cambia il colore dello 
sfondo 

L’incremento di FI è 10 unità per i 
grafici settimanali, di 50 per quelli 
mensili e di 500 per quelli annuali. 
L’incremento di F3 è invece di 100. 
500 e 5000 rispettivamente. Per F2 e 
F4 valgono le stesse proporzioni. 
Tutti i cambiamenti di colore, sia di 
sfondo sia di linea, sono strettamen- 
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Due cuori e una capanna? 


"A* "9 . &" 

■ +STR* sv: 
"+STR*<s>,g 


6545 P0KE2G4,1 :POKE207,0:PPINT" " 

6550 I FA*= " 2 " THEN3300 
6555 I FfllO" ) " THEN65 35 
6560 IFI > TP THENI=BT 
6562 IFI<BTTHE.HI«TP 

6565 GOSUB50G : PP I NT " d" VI- •: 1 +59 > TRE • 16>"is 
6570 GETA*:IFA*="fiJ"THENI = I + l:GGTO6560 
6572 IFR*=" □"THENI = I - 1 :G0TQ6560 

6575 IFR*= "IJ" THENJ=J +1 :G0T06585 

6576 IF A*="irTHENJ= J -1 : G0TG6595 
6580 IFA*=PT*ANDJT - J.THEH6630 
6585 IFA*= "II"!HEN6535 
6590 GOT06570 

6595 GOSUB660:IFJ>47THENJ=0 
6597 IFJ < 9THENJ-47 
6600 X=IMT <-J/4 ;> :A*=CHR*' 49+.T-X*4:> 

6602 FRI NT" SSaffi" :PRIHT TRE ■: 33-LEN < ME* < X > > >ME*<X> ' 

6605 8=0 : F0PK=BTT0TP : PRI NT TRE' < 29 > RIGHT * ■ " 

'K,J>>,3> 

6607 •=.=S+SV;:<K tNEXTiPP lNTTAE': 29 'RIGHI* " 

:GOTO6570 

PRINTLEFTf • GD'f .22 'TRE' 16>": " ; 

L=7 :GO8UE900 :N-VRL > 14* > : TF' W=0ANDW* 7' "0" )nPM*«> " 

" -j.RW> 32767 THEN6565 

PRINTLEFT* < CD* , 7+1-ET ;TAB<29>RIGHT*< " "+W*,8> 

SVX < I , J > aW : G0SUB6 700 : G0T06565 
8=0 : FORK-BTTOTP : S=S+SVX K, J > : NEXT 

PRINTLEFT* < CD*,28■TRE <29 > R IGHT* <" " +STR*<S > , 8) 

RETURN 

REM- 

REM - BILANCIO 

REM- 

PRINT"3SÌ BILANCIO 

PRINT"SaQlEMfi" ;B=24 :T=5 

PRINTTfiB' T>"JSj 1 ■ SETTIMANALE"TAB<BVjJ 2 1 MENSILES" 
PRINTTflBa 3 i TRIMESTARLE"TRE:<B> "a 4 ■ ANNUALE^" 
PRINTTRBCT > ";J 5 ■ RITORNO MENU’" 

G0SUB510 : PR I NT TRB < T :> SC * : : PQKE2G4, 0 
GETR* :R=VRL6A* • :IFR : 10RR>6THEN7055 
POKE204 , 1 :PO*E207,8 :PRINT"3" 

ONRGOT07208,7250 . 7308, '7400,8300 

FRINT"33 BILANCIO SETTIMANALE 3" 

F=48 : PI *■= "SET TIMANA Cl-48> : GOT 07600 

PRINT"32 BILANCIO MENSILE 3" 

F=12:P1*="MESE <1-12>: ":GOT07600 
PRINT"3a BILANCIO TRIMESTRALE 3" 

F=4 : PI*= " TRIMESTRE <l-4>: " :GDTD7600 
PRINT"aa BILANCIO ANNUALE 3" 

GOSUB78O0:GOSUB7900:8=0 

FORH-0TOU :FORK=0TO11 :S=3+SF?.'<H,K> : NEXT s NEXT 
R<©>-S:R<1>=RF:R <2 >=S-RF:S=8 
F’ORH=0TO12:FORK=0TO47:S=S+SVi:<H,K> tNEXT : NEXT 
R < 3 >=S:R<4 >=RV:P <5>»S-RV:R < 6>=R<0 >+R<3 >:R< 7 > =RT: 

R < 8> =R < 6 - 1 —R < 7 > 

R < 9 > =RA :R<10>=RA-R<6■:GOSUB7950 

GOSUB500:PRINTTAB<4 > "£j PREMI UN TASTO PER PROSEGUIRE ■ 
:GOSUB1900 
GOT 07800 

B=18 :PRINTLEFT* < CD*,23Va FI ■ AVANTI"TAB<B > 

F3 S INDIETROM" 

PRINT"a F5 ■ DIRETTO”TAB' E:> "a F7 B RITORNO AL MENU'’3" 
GOSUB7800:1=0 :OOTO7740 
G0SUB52© : F'R INTSC# ; : POKE204,0 

GETA*:A=ASC <A*+CHR* v 0 > >-132:1FA<1ORA>4THEN7650 
POH E204,1 :P0KE287,0 :PRINT" " 

ONRGOT 07680, 7690, 77 10 , 7000 
1=1+1tI=I*<l-INT<I/F>>:GOTO7740 
I = I - 1 :1FIC0THENI =F- 1 :G0T07740 
00 T Or740 

G0SUB520 SPRINTAI*; :L=2 iGOSUB'90© :S»VAL<W*>-l 
I FS :0ORS>F- .1 THEN7640 
I=S 

GOSUB640 :GOSUB785© 

GOSUB79O0 : 8=0 

I FF =4 T HENF ORK =,<T 0: +2 : FORH=0 T010 : 8=8+SF X <: H , K ) : NEXT : NEXT 
:R •0 >«s:GOTO7770 

FORH-0TO1 1 :S=S+SF*.' < H, X :NEXT tR<0>»INT<S*12/F+. 5> 

S=0 :V=48/F :P' 1 >=INT■: RF/F+. 5> :R<2 >«R<0 >-R< j. 

FOPH =Vf IT0V4I +V- 1 :FORH=0TO12 :S=S+S"v''0 H,K> tNEXT tNEXT :R< 


y> 


6fc-30 

6 *535 

6640 

6645 

6700 

6710 

6720 

7000 

7001 

7002 
7010 
7015 
7020 
7025 
7030 
7050 
7055 
7060 
7065 
7200 
7210 
7250 
7260 
7300 
7310 
7400 
7410 
7420 
7430 
7440 
7450 

7460 
7 470 

7580 

7608 

7620 
7 630 
7646 
7650 
7660 
7670 
7680 
7690 

7 7’ 80 
7710 
7728 
773© 
7748 
77 50 
7768 

7765 

7770 

7775 




te locali alla procedura grafica e so¬ 
no permanenti, fino alla terminazio¬ 
ne del programma o a una modifica 
successiva. 

Struttura 
del programma 

Tutte le inizializzazioni necessa¬ 
rie vengono fatte nella routine 8000- 
8099. La struttura dati è molto sem¬ 
plice: tutte le voci di inserimento 
sono memorizzate nei data dalla li¬ 
nea 9000 e vengono caricate nel vet¬ 
tore v$; per i dati veri e propri sono 
utilizzati 3 vettori: pt(71,2) che con¬ 
tiene la situazione patrimoniale, le 
entrate annuali c il budget di previ¬ 
sione, sf%( 11,11) che contiene le 
spese fisse e sv%( 12,47) che contie¬ 
ne le spese variabili. Come si vede, 
ogni singolo inserimento, mensile o 
settimanale, non può superare il nu¬ 
mero 32767, poiché per risparmiare 
memoria sono stati utilizzati dei vet¬ 
tori di tipo integer. Questa non è 
però una grossa limitazione, poiché 
le cifre sono espresse in migliaia di 
lire ed è quindi ragionevole pensare 
che sia piuttosto raro avere delle 
singole voci-spese superiori a 
32.767.000 lire. 

Le linee 8300-8390 disegnano il 
quadro del menù principale e richia¬ 
mano le routine corrispondenti al 
comando inserito. Le linee 500-520 
eseguono degli scrolling della linea 
di controllo nelle varie quote richie¬ 
ste. mentre dalla 600 alla 650 ci sono 
gli scrolling di parti del video utiliz¬ 
zate per esempio nello scorrimento 
delle colonne nei vari inserimenti. 
Le linee 900-935 eseguono una rou¬ 
tine di input controllando carattere 
per carattere se il dato in ingresso è 
legale. 

In generale la struttura del pro¬ 
gramma è molto semplice e lineare 
poiché le operazioni richieste sono 
sempre le stesse: inserire dei dati ed 
eseguire delle somme. Le informa¬ 
zioni riguardo a queste parti del pro¬ 
gramma sono completamente dedu¬ 
cibili dal listato e quindi nel detta¬ 
glio verrà descritta soltanto la routi¬ 
ne che si occupa di disegnare i 
grafici. 

8500-8540 viene presentato il sot¬ 
tomenù grafico e viene eseguito il 
salto alla routine corrispondente al 
tipo di istogramma richiesto. 
8600-8800 vengono eseguiti e cari¬ 
cati nel vettore gr() tutti i calcoli 
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7780 
7790 
7795 
7800 
7305 
7810 
7315 
7820 
7850 
7860 
7370 
7875 
7390 
7900 
7910 
7920 
7930 
7950 


7960 
8000 
8001 
8002 
80 1 0 
8020 
3030 
8035 
3050 
8055 
8060 
8065 
8070 
8075 
8080 
8099 
8300 
3305 
8310 
8320 
8330 
8340 
8345 
8350 
8360 
8378 
3380 
8390 
3500 
8501 
3502 
8510 
8515 
8520 
8525 
8530 
8535 
8540 
86O0 
3610 
8620 
8640 
8650 
8660 
8700 
8710 
8720 
8725 
8730 
8 735 
8880 
8310 
8820 
88 30 
9000 
9005 
9018 
901 5 
9828 
9025 


p 4 = iNT < RV/F +. 5> :R < 5 > =R< 3> -R C 4 > :R • 6 > =R<0> +P<3 > :R< 7 > = I NT<RT/F +.5> 

R<: S > —R< 7>-R < 6 > :P'' 9 > = IN TCRfl, F+.5 ■ :R< 1-0>*INT-RA.'F-R<! 6> > :GOSU87950 
GOTO7640 

R*="PREVISIONE MEO IR" : B*= "SCOST AMENI 0 RSS. " 

C*=RT*+" -" 

RRINTLEFT*<CD* ,3 >C*RT* " SPESE FISSE " RT*fi*RT*B*C*RT*"SPESE VRRIRBILI" 
PRINTR*PT*B*C*RT*"TOTRLE SPESE "RT*R*RT*B*C* 

PRI NT »T OTRLE ENTRATE"RT* "SURPLUS 0 DEFI C I T "C* : RETURN 
IFF=12THENX*I :PRINTLEFT*> CD* , 3 TRB < 38-LEN < ME * < I> > > ME* < I > : RETURN 
IFF=4THENX*I#3 :PRINTLEFT*< CO*, 3 > TRB'': 27 > "TRIMESTRE. '"CHR* ' 49+1 .« : RETURN 
X- INT<I/4»iA*=CHR*<49+I-X*4> 

PRINTLEFT*-: CD*,3>TAB<34-LEN'' ME * X > > >ME*<X> »/"R*"S. " 

RETURN 

S=8 :F0R:H=47T 058 :S=S+PT<H,1 '• :NEXTH :RF=S 

S=0 :F0RH=59T071:S=S+PT<H,1 * 1 s NEXTH :RV=S 

S=8 :FORH=0TO2:F0RK=28T046 :S=S+RT<K,H • :NEXT :NEXT :PA=S 

RT-RF+RV ! RETURN 

PRINTLEFT*(CD*,4 >:FORK=0TO10 

PRINTTRB < 30>RIOHT*< " "+STR*'R':,K » > ,8> : IF»= =20RK*50RK«8THENPRINT 

NEXTsRETURN 

REM - 

REM INIZIALIZZ AZIOHI 

REM - 

PRINT " riai! CHR*< 142> iPOKE 53280, 6 1P0KE53281,6 :POkE650,128 
DIMV* ■ 71 ■ ,PT<71,2>,SF8< 11,11 > , SVX (. 12,47 > , RP < 6, 3 > , S1 V. < 11 > ,ME*< 11 >,0RC 

0}£$sb (i " 

:RT*=CHR*':' l. •: > sSC*="LA TUR SCELTA : 

FORI=01071sREADV*<I>iNEXTI 
FORI =»0TO6 :READT* <. I > :NEXTI 
FORI*01011:RERDS1»<I > iNEXTI 
FORI =01011 iREADME*<I> :NEXT.I 

CC*=" IG IC IC IC IG IC IG !□ IC IC" sCC**"a"+CC*+CC*+"i" 

P0*="ABCDEFGHIJKL MNOPQRSTUVWXV " 

C1=0:C2=7:C3=6:C4*6 
RETURN 

RRT>IT " "ItTi'W TAE’' 4 > "E: U D 0 E T 


FAMI L I A R E” 


PRINTTRB'■ 4 > "- ---Sfila" sA=0:B=20 


PRINTTAB ' fi' 1 A 
PRINTTRB 1 :: A> "JS C 
PRINTTAB': A >"3 E 1 
PRINTTRBvA'"Si G 1 
PRINTTRB'’A ' "U I i 
OOSUB500 SPRINT" 
GETh* : IFA**""THEH 


Z AR ICA BUDGET " TRE: •: B> "A B 
PATRIMONI ALE"TAB': E :■ "JB 
BUOGE T PREVI STO " TRE:<B 

I. SETTI MANALE "TRB '■ B > 
GRRFIC I RICRP."TAB <B > 
"SCI .s : POKE204,0 
3360 


, SALVA BUDGET®' 

D 1 ENTRATE ANNUALIM" 
ij F S INS. MENSILE®" 
!ì H ■ BILANCIO®" 

3 J M FINE PROGRAMMA" 


POKE204,1 :PQKE207 , 8 :PRI NT" " 

A=RSC< A* >-64 : IFA<1ORA: 10THEN8350 

ONRGOTO200© ,1000 ,3000 ,4O0O , 5000 , 6000 ,6500 ,7000, 8500 ,1950 

REM - 

REM - GRAFICI 

REM --- 

PRINT " aa GRAFI C I DI RICAPI TOL AZ I ONE g":A“4 sB*21 

PRINTLEFT*<CD*,7>TRB<A> “3 1 8 SETTIMANALE"TAB'B > "Si 2 il MENSILE®" 
PRINTTRB' A >’ ii 3 8 ANNUALE" TRB'' B> "U 4 ■ RITORNO MENU'" 

G0SUB5 10 : PR INTTRB <A >SC*; : POI !E2@4 , & 

GETA*sIFA*<" 1"ORA*>"4"THEN3530 
POKE204 , 3 : POKE207, 0 :RR I NT " " 

X=VAL < A* ■ : ONXGOTO8600,8700 ,8800 , 8300 
G0SUB5 10 : PF: I NT “ SET TI MAN A < 1 - 48 > : 
t FS :;0OR3: 47THEN3500 

X= I NT ■ S. 4 > : P1 *=ME*■: X> + " /SETT I NANA “ +CHR* 49+S-X84 > 

P2*=PQ* : FORH**0TO1 1 :GR‘ H > = INT <SFX<H,X>/4) : NEXTH 
FOPH= 3 3T025 : OR C H :■ =SVX < H-1 3,S> :NEXT:TR=200:LI = 10:HI = 3.00 
OOSUB9300 «GOSUB9360:GOTO9400 
GOSUB510 SPRINT" MESE ■ l-3.2> s 
IFMCOORMÓ 11 THEN8500 
PI*= "MESE s " +ME*• M >: P2**PG* 

FORH=0TO1 1 : GR < H > =SF.X H , M > : NEXT 

FORH*1 3T025 : S=0 s FORK =M*4T0M*4+3: S*S+SVX<H- 3 3, K > :NEXT:GR•H> *S :NEXT 

TP*800 : L I-50 : H I =500 : GOT08660 

Pl*= "GRAFICO DI RIEPILOGO ANNUALE" 

FORH*0TO1 1 :S=0 :FOPK=0TO11 :S«S+SF;i<H,K.> sNEXT sGR<H>*S sNEXT 
F0RH*1 3T025 :S=0 sFORl «0TO47 :£.=S+SV*; H- 1 3, 1 '• «NEXT sGR<H>=S iNEXT 
TP=960O s L I =500 : HI =5000:G0T0366© 

DATA CONTO CORRENTE, DEPOSITO RI9P. , ALTRI 
AZIONI ORO. 

AZ IONI PRI V . ,FONO I COMUN I,TITOLI DI STATO,OBL I GAZIOHI 
CERT. DEPOSITO,ALTRI CERTI F . , IMMOBILI,CREDITI 
ANT IGUfiRIATO 


:L=2:GOSUB900:S=VAL < W*>-1 


: L=2 s GOSUB9O0 s M=VAL CW*>-1 


DATA 

DATA 

DATA 

DATA 


DATA PIANO DI ACC 


!> 


(continua) 
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Due cuori e una capanna? 



Figura 3. Il programma permette 
la visulizzazione di grafici di 
ricapitolazione la cui altezza e 
colon possono essere scelti con 
semplici comandi da tastiera. 


9030 

DATO 

9049 

DATA 

9045 

DOTA 

9058 

DATA 

9057 

REM - 

9060 

DATA 

9065 

DATA 

9070 

DATA 

9075 

DATA 

9080 

DATA 

9885 

DATA 

9098 

DATA 

9897 

REM - 

9100 

DATA 

9165 

DATA 

9110 

DATO 

9115 

DATA 

9120 

DATA 

9125 

DATA 

9138 

DATA 

91 35 

DATA 

9145 

DATA 

9147 

DOTA 

915© 

DATO 

9155 

DATA 

9157 

DATA 

9160 

DATA 



9301 

REM - 

9302 

REM - 

9310 

F0KE5 


021GNORJE,POLIZZO VITO,CREOITI IMPOSTO,AUTO 


SOLORI/STIPENOI,REDO. AUTONOMO 
BENEFIT E BONUS,ALTRI REDDITI 
INTERESSI DEP.,IMT. SU TITOLI 
PLUS. COP ITAL I, D IVIDENDI,FITTI, AL 
F'ENSIONE INPS, PENS. PRI VOTO „RENO. 
ALTRE RENDITE, ASS. DISOCC. 


rRJ REDDITI 
VITALIZIA 


AUTO,ASSIC. CASA 


VITTO 


SECONDA CASO,VARIE 
" MARITO"," MOGLIE". 


CONIUGI' 


TOTALE" 


ROUTINE GRAFICI 


O,C3:P0KE53281,C4:PRINT 
J3 "PI*" ma]" 

9320 FORI = 1T 020 :1FI = 1OR j =60R1 = 11 ORI = 
:GQT09335 
PRINTTABO) " I" 

NEKTI :PRINTTAB <9 >" i- 

F'RINTTBB 1 ' 11 > P2* " 3" 


1 □" TAB •' 20—LEN P1 1 '> /2> " 


16 THE NPRI NTT AB c 9 > " -| " 


933© 

9335 

9340 
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9350 
9360 
937© 
9380 
9400 
9410 
9420 
9430 
9435 
9440 
9450 
946© 
9463 
9465 
9468 
9470 
9475 
9478 

9480 

9485 

9488 


9490 


RETURN 

FORI =0TO4 :fl=INT(TP!K4-I >/4> sfi*=STR*vR> :B=8-LEN • fl*> 

PRINTLEFT* < CD* ,5*1+3;' TAB • BzR* s NEXT 

RETURN 

FORJ-0TO25 sP*GRCI > sIFP=0THENR*=" " «QOTO9430 
IFP>TPTHEHA*=CC*:GOTO9430 
P=R*20/TP : A»=LEFT*<:CCf , P*3+1 > + " i' 1 
H= I - 1 NT < 1 /2> *2: : fi=C 1 :1 FH= 1 THENR=C 2 
P0KE646,R : PRINTLEFT* < CO», 22 > TRB •; 11 + 1 'R» 

NEXT 


GETR*: IFA*=""THEN9450 

IFR#=" |;“ THEHP0KE6461 : POKE53280 , 6 : P0KE5 
IFR#="■"7HENC1«C1 + 1 :01=01# 1-1NT < C1/16> 
IFA*= "THENTP=TP+L I : GOTO9500 
IFA*-" 3" THENC2=C2+1 :C2=C2* 1 1-IHT •C2/ 16 > 
I FA*= "STTHENTF-TP-L,I :GOTG9500 
ITHENTP=TP+HI :GOTO9500 
I FRf = " TS" T HENC'3=C3+1 jC3=03*< 1-INT 
GOTQ9450 

IFRT= "K" THENTF'=TP-HI i GOTO9500 
I FR*= " II" THEN9700 

IFR$='VTHENC4*C4+1 :C4«C4*< 1-INT 
GOTO9450 


: ;281,6: GOTO8500 
:< :GQT09400 

1 : GOTO940O 


1 6 ) > : PGKE59280 , C 3 


04. '16' > : POI E 53281 0 4 


GOTO9450 


9500 IFTP<100THENTP*100 

9510 IFTP>1©000000THENTP'=1000000 

9520 P0RE646,1 :GOSUB620:GOSUB9360:GOT09400 

9635 GOSUB10100 :GOT08660 

9700 P0KE53230,6 :P0KE53281,6:P0KE646,1 

9705 PRINT-aaa ASSOCIAZIONE SIMBOLICA DELLE SPESE a" 

9710 PRINTLEFT*<CD»,5>:F0RH=0T023STEP2 

9720 PRINTTRB < 3>CHR *< 65+H> " "V**: 47+H >TAB<22 >CHR*<66+H> " "V* 
48+H> {NEXT 

9730 F'RINTLEFT» (. CD*23 > TRP<4 > " jj Ppfmt iju Tftc ., n ptrc , 
PROSEGUIRE 3" ' 11 

9740 GOSUB1900 :GOSUB9300 :00SUB9360:GOTO9400 

RERDV. 


necessari per la rappresentazione, 
vengono settate le variabili del top 
della scala tp e degli incrementi del 
top della scala li e hi. cioè alto e 
basso. Tutte informazioni che ver¬ 
ranno poi utilizzate dalla routine 
che esegue i disegni e che, essendo 
la stessa per ogni categoria, necessi¬ 
ta di questi parametri. 

9300-9350 disegnano gli assi carte¬ 
siani, l’intestazione e la linea dei 
simboli orizzontali sulle ascisse. 
9360-9380 scrive la scala sull’asse 
delle ordinate. 

9400-9440 disegnano l’istogramma 
alternando i colori cl c c2. Le colon¬ 
nine sono determinate dalla propor¬ 
zione tra il valore del singolo qua¬ 
dretto rispetto al top della scala, 
estraendo da ccS*il numero necessa¬ 
rio di caratteri. 

9450-9490 attendono uno dei co¬ 
mandi disponibili, già descritti 
sopra. Marco Gussoni 


Questo programma è disponibile su di¬ 
schetto. L’elenco, i prezzi e le modalità 
d’ordine sono riportati alle pagine 81 e 
82. 


■T 


Uiardware 
dello spectrum 


biblioteca TàBctòiB oiemo 1- 


\ 


capirò gli 
intograti logici 



Adriafi C. DicKens 

L'hardware dello speotrum 

I componenti del Sipclaii' 
Spectrume come intervenire 
Culla Bua struttura 
Per gli appassionarti di com¬ 
puter] c'è ancora molto da 
scoprire e;persona!jzzarje e la 
maggior parte delle macchi¬ 
ne in cotnmefrcio consente 
espansioni intpgrazioni, col- 
Tèganhenti con dispositivi elet¬ 
tronici esterni, Questo ma¬ 
nuale offre un'ampia sejrie di 
indicazioni sui modi possibili 
di intervento spila struttura fi - 
Sica del Sinclair Spectrum 

pagine 144. L 12 Q00 

franco 


^vT»‘pSo"if» p ptoi+; LU 

Antonio Puglisi 
Capire gli integrati lodici 

$tudip pratico 1 delle funzioni 
dei c i a logica^ binaria, prov^ 
di efficienza e ! progetti appttF 
catlvi. 

Un manuajle per hobbisti, stu¬ 
denti. sperimentatori ej pro¬ 
gettisti empirici che hanno bit- 
sogno di sapere ciò che si ve¬ 
rifica pll'interno dei diversi tipi 
di circuiti integrati d 1 effettua,- 
re pròve funzionali degli stes¬ 
si. di disporre delle indicazioni 
necessarie per] potere opera¬ 
re immediatamente, almeno 
riell adibito delle realizzazioni 
piu comuni 

pagine 120, L. 12 Ò00 


ZX80 e ZX81 come 
strumenti di controllo 




Robert L Swarts 
ZX80 e ZX81 come stru¬ 
menti di controllo 

Anche piccoli computer dome 
gllZX80eiZX81 costituiscono 
gn eccellente banco di provai 
per mettere in iprati|ca gli eléf 
ment| fondamentalij della tec¬ 
nica del controllo automatico 
Questo vOiume rivolte] ag’ 
hobbisti deii elettrqnica e 
tutti cbloro chej vogliono avve 
ornarsi a questo campo, illu¬ 
stra le applicazioni possibili 
degli homd computar ne| con- 
tfollo domestico, tornisce le 
Conoscenze indispensàbili q 
presenta alcurii progetti spe¬ 
cifici 

pagine 22j2. L 15 000 


■ 

■ 

■ 

■ 

■ 

i 

I 

! 

I 

■ 

I 

s 



Se siete interessati a questi, o 
altri ns. libri, compilate la cartoli¬ 
na e inviate a Franco Muzzio 
Editore - Servizio Mailing - via 
Makallè 73 - 35138 Padova. 


desidero acquistare : 

□ L hardware dello Spectrum 
Capire gli integrati logici 
ZX80 p ZX81 come strumenti 
di controllo 


3 


Pagherò al costipo IL. ..J.j. + 

L. 1 000 di spese di spedizione. 

□ desidero ricevere il Vostro ca¬ 
talogo generale- 


nome . 
cognome 


via. 


Q,A . fo .pitta - 






























































































Un programma chepermette la rappresentazione 
grafica di funzioni a due o a tre dimensioni, e non 
solo sul video del computer; è possibile realizzare 
anche l'hard copy su stampante! 


Se funziona 


«'•j 

*»- V- 



Figura I Esempio di uscita su 
stampante Seikosha GP- 
ÌOOVC. 

Questo programma é disponibile su 
cassetta. L'elenco, i prezzi e le modalità 
d'ordine di questa e delle altre cassette 
disponibili sono riportati alle pagg. 81- 
82. 


la funzione 


A nche i computer più piccini, bi¬ 
sogna ammetterlo, sono oramai 
diventati capaci di compiere qual¬ 
siasi prodezza; alcuni piccoli accor¬ 
gimenti "espansivi" e, soprattutto, 
una serie di programmi pensati su 
misura concorrono ogni giorno di 
più ad ampliare gli orizzonti appli¬ 
cativi nella famiglia degli home 
computer. 

Questo breve programma, in par¬ 
ticolare, è in grado di rappresentare 
sul video del VIC 20 il grafico di 
funzioni sia a due sia a tre dimensio¬ 
ni; una volta che la funzione è stata 
disegnata, inoltre, c possibile ese¬ 


guire, tramite un programma in lin¬ 
guaggio macchina, l’hard copy del 
video su stampante. 

Per utilizzarlo, è necessario mu¬ 
nirsi della super expander, come è 
possibile dedurre dalle istruzioni 
della linea 20, e, naturalmente, di 
una stampante Commodore compa¬ 
tibile (l’esempio eli grafico riportato 
in figura è stato realizzato con una 
Seikosha GP-100VC) . 

Menù di opzioni 

Il controllo è affidato al menù 
principale, articolato in tre opzioni: 


10 REM GRAFICI 01 FUNZIONI A 2 E 3 DIMENSIONI 
20 COLORO,0,1,0 

30 PRIMICHRI<147)’PROGRAMMA GRAFICO SU 2 E 3 DIMENSIONI' 

35 PRINTCHRK17) 

40 PRINT'LE FINZIONI DA RAPPRESENTARE SENO MEMORIZZATE 

NELLE LINEE 
50 PRINT'160 E 280' 

60 FOR1=1T05000:NEXT 

70 F0R1=1T021:PRINTCHR$(17>:NEXT1!PR]NTCHRf<147)CHW<18)*$CE6ll:* 
80 PRINTCHR$<17)'1) PER 2 OHI. 

90 PRlNTCHRi<17)*2) PER 3 DIM. 

100 PRINTCHR$(17)“3) PROGRAMMA IN L.M. PER TRASFERIMENTO 
SU PRINTER* 

110 GETA$ 

120 OffMl(A*)GDT01 40,260,460 
130 GOTOllO 

140 REM A 2 DIMENSIONI 


150 GRAPHJC2 

160 DEFFNA(X)=SIN(X/120)*4GQ 
170 P0INT3,0,512 
180 DRAW3T01023,512 
190 F0RX=0TQ1023 
200 Y=FNA(X) 

210 P0INTT3 ,.X ,512-Y 
220 NE.XTX 

230 6ETA*: 1FA*='3'THENSYSA:GRAPH1CO :60T070 
240 IFA*=CHR$(13)THEN:GRAPHICO:GOTO70 
250 60T0230 

260 REM A 3 DIMENSIONI 
270 GRAPHIC2 

280 DEFFNA( Z )=90*E.XP< -Z*2/600) 

290 Orò 

300 F0RX=-1OOTOOSTEP1 
310 R=0:F=1:S0=0 
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la prima disegna il grafico di una 
funzione a due dimensioni, la secon¬ 
da disegna il grafico di una funzione 
a tre dimensioni, la terza, infine, 
carica in memoria il programma di 
hard copy. 

Se lo si desidera, è possibile cam¬ 
biare la funzione da rappresentare 
con un semplice intervento sulle li¬ 
nee 160 e 280. come è spiegato nel¬ 
l’intestazione del programma. 

Per stampare su carta la rappresen¬ 
tazione grafica è necessario sceglie¬ 
re l’opzione 3 del menù e, quindi, 
attendere per alcuni secondi: quan¬ 
do si vedrà ricomparire il menù sul 
monitor, bisognerà scegliere l'op¬ 
zione corrispondente al grafico desi¬ 
derato. 

Una volta che il disegno sia stato 
eseguito completamente, si può da¬ 
re il via alla copia su stampante pre¬ 
mendo ancora una volta il tasto 3. 

Principali routine 


Le principali routine sono quat¬ 
tro: linee 10—130 menù principale; 
linee 140—250 tracciamento della 
funzione a due dimensioni; linee 
260-450 tracciamento della funzio¬ 
ne a tre dimensioni; linee 460— 650 
routine di caricamento del program¬ 
ma in linguaggio macchina. 

Il tracciamento della funzione av¬ 
viene secondo lo schema classico: 
un ciclo scandisce i valori di ascissa 
e, contemporaneamente, vengono 
calcolati i corrispondenti valori di 
ordinata. 

Marco Napoleone 


320 Y1=Q*1NT(SQR<10000-X*X)/Q) 

330 F0RY=Y1T0-Y1STEP-Q 
340 Z=1NT(80+FNA(SQR(X‘2*Y‘2))-.707106*Y) 
350 1FZ<LTHEN410 
360 R=Z 

370 P01N73,.7*5*X*512,1023-5*2 

380 P0IN73,512-.7*5*X,1023-5*2 

390 1FF=07HENS0=Z 

400 F=0 

410 NEXTY 

420 NEXTX 

430 GE7A*:1F A$=* 3*7 HENSYSA : GRAPH 1 CO : G0T070 

440 1FA*=CHR*' !3)7HEN:GPAPH1C0:GO7O7O 

450 6070430 

460 GRAPHIC2:GRAPH1C0 

470 P0KE56,PEEK<56)-1 :P0KE52,PEEK<52)-1 

480 B=PEEK<56)*25ó-»PEEK(55) + l :A=B 


490 READA*: 1FA$='-1'7HEN70 
500 Bi=LEF7$<A$,Ì) 

510 N1=ASC(B4)-48:1FN1>97HENNl=Nl-7 
520 B*=RIGHT$(A*,1> 

530 N=ASC( EH )- 48:1FN)97HENN=N- 7 
540 N1=N1*16+N:P0KEB,N1:B=8+1:G070490 
550 DA7AA9,01,A2,04,A0,00,20,BA,FF,A9,00,20,BD,FF,20 
560 DA7AC0,FF,A2.01,20,C?,FF,A?,08,20,02,FF,A9,00,85 
570 BA7A01,85,62,A9,10,85,02,85,^3,A9,14,85,64,A9,08 
580 DA7A85,65,AO,06 ) A6 ) 65,Bl,c2 ) 4A,CA,D0,FC.2ó,FB,88 
590 DA7AJ 0,F3,A5,FB,09,80,20,D2,FF,20,D2,FF,EA, EA,EA 
600 DATAEA,Có,65,00,DF,EA,EA,C6,ó4,F0,10,18,A5,62,69 
610 DA7AA0,85,62,A5,63,69,00,85,63,18,90,C5,A9,OD,20 
620 DATAD2,FF,18,A5,01,69,07,85,01,A5,02,69,00,85,02 
630 DA7AC9,10,DO,08,A5,01,C9,A1,DO,02,F0,0B,A5,02,85 
640 DATA63,A5,01,85,62,18.90,98,A9,0F,20.D2,FF,20,CC 
650 DA7AFF,A9,01,20,C3,FF,60,EA,-1 
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EitHUOMCA 


SINTm ZZATE 
MUSICA» 


Aprile 1983 L 5 000 Programmi per ZX81 per progettare con il timer 555. Programmi per 
Apple II. un database per la tua biblioteca Programma per tutti i personal indovina la parolina 
Progetti, cardiotach metro visivo e sonoro Microtrasmett tore telegrafico a onde corte Interrut 
tore a combinazione Generatore di onde quadre Amplioperazionale lampeggiante Esplosione 
da integrato Doppio Interruttore. Per tare squeich Rivelatore di presenze infrarossi Metal 
detector Wattmetro per RF Mlcropinze macroeconomicbe. Amplificatore per superbassi 

Giugno 1983 - L 5 000 Programmi per ZX81 Meteore: Formula 1; Bombardiere, li numero 
nascosto. Segnatempo, dimenslonatore di circuito risonante e md’vduavaiore di bobina: 
esplosione Programmi per Apple II per scoprire quanto a lungo puoi vivere Progetti 
percussioni elettroniche Alimentatore duale 20 + 20. Ampiistereo3+3W Analizzatore riflessi 
Barra di LEO Prova integrati sonoro Amplimicrofonico Minivoltmetro a LEO Filtro audio 
Centrale conteggio ottico, Supersirena modulala 12 V, 

Luglio 1983 - L 5,000 * Programmi per Apple II i tronchi de; tesoro Programmi per ZX81 
stimon (gioco di memoria); fantasmi, controllo del codice di partita IVA. bowling, battaglia 
spaziale Programmi per Texas TI99' orologio digitale Progetti minimixer Trasmettitore speri 
mentale FM Cloche per lo ZX81. Elettroscopio con display a LEO Modulatore musicale. 
Generatore di oscillogrammi vdeo. La casa stregata Lampeggiatore magico Ricevitore di 
segnai ottici Due radio FM con il TDA7000 Sveglia dei campeggiatore e allarme intermittente 
Caricabattene al nickel-cadmio Come attrezzare II laboratorio 


Ottobre 1983 - L 5 000 - Programmi per ZX81 Calendario Programmi per Vie 20 Battaglia 
Navale Programmi per App'e Dadi e punti Progetti display musicale a LED per auto. Scheda 
a 20 uscite per ZX81 Applicazione pratica della scheda Allarme alta temperatura. Occhiorobot 
CMOS Apriti Sesamo, Parla al telefono Timer elettronico per tempi lunghi Frequenzimetro 
digitale :3a parte. Tre ricevitori OM per chi comincia Antenne e prese di terra 


Novembre 1983 - L 5 000 - Programmi per Apple v Indovuta il numero, Programmi per ZX81 
L'isola del tesoro. Black Jack Programmi per Spectrum. Autodiagnosi per computer e accessori 
Programmi per Vie 20 Slot Mac! ne. Progetti doppio comando per Apple ZX8t e ZX80 la 
nostra memoria aumenta cos Ricevitore CB canalizzato Ampliaudio 5W Fotografia program 
matore d'agitazione Frequenzimetro digitale: ultima parte. Generatore di rumore a RF Temporiz 
zatore a ciclo ripeti! vo Acceso o spento’ 


Come fai se l’arretrato non ce l’hai? Ti sei 
perso un numero - o addirittura più 
numeri - nel corso di quest'anno? 
RadioELETTRONICA ti offre l’opportu¬ 
nità di rimetterti in pari. Di ogni arretrato 
troverai l’elenco dei progetti pubblicati quel 
mese. Affrettati a spedire la richiesta utilizzan¬ 
do il buono pubblicato nella pagina accanto 
riceverai subito a casa il numero o i numeri che 
interessano senza aggravio di spese postali. 


Febbraio 1983 - L. 5.000 Programmi per Apple II: per compilare la schedina del Totocalcio; 
per vedere quanta memoria c'è ancora nel dischetto. Programmi per Atom un orologio che 
segna ore. minuti e secondi Alar 400 e 800 per contro lare i 1 conto in banca Programmi per 
ZX81 per mettere tutto in ordine alfabetico; per disegnare su video, una dieta su misura, 
anagrammi a tutto andare; traduttore morse; tiro al piattello. Progetti voltmetro digitale per 
l'alimentatore regolabile in tensione corrente. Comando per scambi ferroviari Logica do it 
yourselt Monitor di batteria scarica. Sonda per logica TTL Monostabile improvvisato Raddriz¬ 
zatore di precisione Complesso ricetrasmittente a quattro canali il ricevitore. Allarme antidistra¬ 
zione per auto Baby TX, microtrasmettitore Miniricevitore per onde cortissime e CB Interfono 
per moto 

Marzo 1983 - L 5 000 Programmi per Apple II per cambiare il carattere della stampante 
Programm; per ZX81: Slot machine. Tombola, un gioco di memoria; gioco di dadi Programm 
per VIC20 Briscola Un programma per qualsiasi computer: la legge di Ohm Progetti, semaforo 
antitut Preamplimicrotonico OM e CB Telecomando apparecchi elettrici Luce automatica 
notturna Alimentatore auto Bottoncino accendi e spegni Minigeneratore BF Oscillatore morse 
Sirena monotonale. Adattatore per contagiri, Luci psichedeliche. Spaventapasseri elettronico. 
Rivelatore d allargamento. Mirramplificatore BF Antifurto a ultrasuoni per automobile 
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Agosto 1983 - L 5.000 - Programmi per ZX81 calcolo dell'impedenza di un circuito in serie e 
mparailelo, la schedina del Totocalcio per far comparire sui video una ai la volta Programmi per 
Apple tris. Progett frequenzimetro digitale. Sonda logica TL con indicazione a LED 
Alimentazione protetta per ZX81 Continuità controllo rapido Oscillatore di nota milleusi, Funk 
box per chitarra Mi eccito col segnale Allarme antifurto. Telecomando con lampada a pila 
Ricetrasmittente ad ultrasuoni Convertitore 12 V/220 V 50 Hz, potenza 220 W Interruttore 
totoelettnco. Capacimetro analogico universale. 

Settembre 1983 - L 5,000 - Programmi per ZX81 Labirinto Programmi per Spectrum e per 
ZX81 Pelota Rou'efte Russa, Grafie a colori Programmi per Vie 20. Roulette Programmi per 
Appi? generatore d istogrammi Progetti frequenzimetro digitale 2a parte M cropreampliti- 
catore universa e a TEI Trasmettitore AM per Citizen Band Pari o dispari’ Termostato a diodi, 
..: ■ i'i/h it Re Mida E buono ' cristallo’ Organo elettronico con tast- a sfioramento 
Superosciitotano morse Sequenzlatore musicale 


Dicembre 1983 - L 5 000 Programmi per ZX81 dimensionatore per liitri passabasso, 
passaalto e passabanda, battaglia aerea Programmi per TI99/A fa schedina del Totocalcio, i 
numeri ugua i di Monica Sharp PC 1211 anagrammi. Programmi per Vie 20; lo sciatore 
Programmi per Spectrum: La grande sfida Progetti generatore di suoni per ZX81 Antifurto ad 
ultrasuoni Ricevitore UHF banda aeronautica Interruttore ott co Tutto sull HI-FI II suono 
(amplificatore media frequenza) Montecaro sul CIP Stetoscopio 

Gennaio 1984 - L 6 000 Programmi per ZX81 formule per realizzare circuiti stampati 
bioritmi, a domanda risponde Programmi per Spectrum Man yn (gioco grafico), : salto de 
muro Programmi per Vie 20: Invaders: Slogans e scritte sul video. Videopittore Programmi per 
Apple per ripassare la geometria Progetti Interfaccia morse per ZX81 Ampliantenna aute 
M/FM Salvav ta differenziale Baby RX, ricevitore OM Misuratore di livello ultrasonico. Tutto 
sull'HI-FI 2a parte. Ricevitore calibrato, ascolto assicurato. Energizza cristalli Elevatore di 
cariche elettrostatiche Generatore di audio e radiofrequenze Converter sommergibili e radiotar 

























Febbraio 1984 - L.6.000 - Programmi per VIC 20: un orologio di precisione: 'a pala che 
rimbalza; biliardo Programmi per Apple // battaglia navale. Programmi per Spectrum: Ranoc¬ 
chio. Programmi per ZX81 Equivalenze tra sistemi di unità di misura diversi, Caccia al numero. 
La corsa dei cavalli Programmi per Commodore 64 Per tradurre un numero decimale nel suo 
equivalente in base diversa. Tanti consigli per trarre il massimo dai vostro Personal Progetti, 
interfaccia joystick per lo Spectrum Due sirene elettroniche Voltmetro digitale per auto Modulo 
ampiiriveiatore. Applausometro a LED, Preampli stereo RltA Tutto sull HI-FI gli altoparlanti 
(3) Minigeneratore BF H prestampli Ricevitore antìbatteria. Retiexando s impara 

Marzo 1984 - L 6 000 Programma per Commodore 64 calcolo de; consumo calorico 
Programmi per ZX81 la schedina dell'Enalotto e del Totip Programmi per HP85: i puff 
Programmi per VIC 20: Indovina il numero. Prova rilessi, Flipper Programmi per Apple //■ Le 
tasi lunari e gli anni bisestili Consigli utili per trarre i massimo dal tuo Personal Progetti 
interfaccia monitor universale SuperVU-Meter a LED. Gii strumenti di RE e C il rack Trasmetti¬ 
tore OM/1OW Ricevitore geodinamico VLF Psicomodulatore ottico. Tuangami il tango. CMSO 
* cristallo = oscillatore Sincrotlash audio Melaradio Tuoni fulmini e LED 


Novembre 1984 L 6 000 - Adventure game per Spectrum come strappare lo scienziato 
dall'isola deserta 7 Programmi per Commodore 64 una tipografia personale Messaggi per tutti 
gusti. SpectrunvGioco: atterraggio di fortuna Programmi per Vie 20. più ordine nell'agenda 
battaglia per il Grand Prix: soccorso agii studenti di matematica. Vie-Rei casa automatica 
Trentuno Led in una matrice per far sbizzarrire la fantasia Due ampiiaudio più un pre. Le guide di 
Radioelettronica e Computer i transistor unigiunzione (seconda parte). Una tastiera telefonica 
del tutto :egae 

Dicembre 1984 - L.6.000 - Programmi per Spectrum: duello a colpi di laser schemi disegnati 
precisi e veloci. Programmi per Vìe 20 e Commodore 64 penna ottica per scrivere sul monitor 
Programmi per Olivetti M 10 come aprire una cassaforte e rimanere onesti Programmi per 
Commodore 64 astronumerologia computer zzata per sposarsi in tutta tranquillità. Programmi 
per Apple stelle benefiche sul video Sette magnifiche alternative per làmpiisonoro da abbinare 
al Sinclair Basta un generatore a radiofrequenza e un ampliaudm per ottenere un ricevitore 
sincrodina per onde medie e corte. Le guide di Radioelettronice e Computer, tutto sui Led: un 
amp ificatore per cuffie 





Aprile 1984 - L.6.000 Programmi per Commodore 64: rubrica tettonica: Formule elettroni¬ 
che Programmi per Spectrum trs Programmi per tutti i personal sort numerico e alfabetico 
Programmi per Vie 20. la schedina vncente: impariamo la dattilografia Programmi per ZX81 
motosialom: ZX pittore Programmi per Sharp MZ 700 cascolo dell equo canone. Programm 
per TI 99/4A. il biscione (supergioco) Progetti Interfaccia seriale RS-232 per C 64 Ricevitore 
multigamma in reazione. Interfaccia nastri per Vie 20 e C 64 Clarinetto digitale. Che cosa c'è nel 
cristallo. Se mi tocchi scatto L oscillatutto. 

Maggio 1984 -1.6.000- Programma per tutti i computers: per controllare i consumi dell'auto o 
della moto, un data base per hobby o per lavoro. Programmi per Apple Ite un emozionante gioco 
di caccia alla tigre. Programmi per Spectrum. a disposizione un muro, una palla e una racchetta 
chi riuscirà per primo a far breccia nel muro 7 ' un programma per trasformate un innocuo 
Spectrum nella più perfida slot machine: indovina a combinazione (i 1 programma gira anche su 
ZX) Programmi per ZX81 : Il Sinclair ti chiede i gol dola domenica e automaticamente calcola la 
schedina del Totocalcio. Programmi per Commodore 64 e Vie 20: con un metodo di studio a 
schede e il tuo Commodore, imparerai ('inglese in men che non si dica Progetti, espansione di 
memoria per Vie 20; per traslormare una vecchia radio in un ricevitore ultramoderno; ampi audio 
da 2 Watt, rilevatore di campi elettromagnetici a bassa frequenza miniricevitore OM; tester per 
nastr magnetici; le guide di Radioelettronica e Computer tutto sulla controreazione; converter 
universale, discriminatore FM: oscillatore ad altissima trequenza. 

Giugno 1984 L. 6.000 Programmi per Commodore 64 per sviluppare la telepatia (il 
programma gira anche su Spectrum); dall statistici a portata di mano (il programma gira anche 
su Vie 20). Programmi per Apple Ile. rivelatore di circuiti Programmi per Spectrum: scaccia la 
pulce, affonda la nave Programmi per Vie 20: motocross, come a Las Vegas Programmi per 
Texas T99/4 il Simon in versione elettronica Progett Vumeter a 10 led, come potenziare 
l'autoradio; timer acustico, miniricevltore OM, come proteggere i mpianto Hi-Fi le gu de di 
Radioeiettronica e Computer: le porte 'ogiche: interfaccia a nastri per Vie 20 e Commodore 64: 
Pre-ampli più; Stereo silenziatore. 

Luglio 1984 - L, 6 000 Programmi per tutti ' Personal per verificare la tua efficienza fisica 
Programmi per Olivetti MIO: il grafico delle vendite mese per mese Programmi per ZX81 
colpisci quel ! aereo Programmi per Apple Ile e Ile perstud are le curve di Lissajous Programmi 
per Spectrum: Clown e palloncini trasforma 4 tuo Spectrum in un traduttore Morse; missione 
impossibile Commodore 64 tutto su' Simon’s basic; come creare istogrammi a tre dimensioni 
Progetti: superespansione di memoria per Vie 20; miniricevitore; energizzatore LC; prova 
transistor digitale; le guide di Radioelettronica e Computer: circuiti come tarli funzionare subito: 
radiospia miniaturizzata, mlnirlcevitore suoni che vuoi in altoparlante 

Agosto 1984 - L 6,000 - Programmi per Commodore 64 il computer ti dice quale olio soare 
usare e la una tabella personalizzata dei tempi di esposizione al sole per una tintarella ideale 
prendendo in esame latitudine, altitudine, condizioni climatiche della stazione turistica dove li 
trovi, ecc (il programma è provvisto delle varianti per tutti i calcolator che funzionino in Basic), 
per gestire le scorte In cucina. Programmi per Spectrum: una gara di slalom Programmi per Vie 
20: guerre stellari; Il Labirinto, tutti i colori degli OHM Programmi per Apple Ile II: cronometro 
digitale. Programmi per Sharp 700: calcolo dei l’INVIM Programmi per ZX81, Spectrum e HP85 
Safari matematico. Progetti per eliminare il fruscio delio Spectrum; sonda logica a display, 
audiorelè supersensibile, ricevitore banda marittima; elettroserratura a combinazione; le guide di 
Radioelettronica e Computer i circuiti pseudo risonanti, amplificatore di suoni; miniricevltore 
onde corte; metronomo minimo 

Settembre 1984 • L 6 000 Programmi per Commodore 64 gestione del campionato di 
calcio. Programmi per MIO gestione voti scolastici Programmi per Spectrum: come creare 
ligure In grado di muoversi da sole Programmi per Vie 20 guerra tra carriarmati. Tabella de 
comandi accettati dalla CPU 6502 e schema a blocchi interno delia CPU. con in omaggio il 
poster della memora dei Vie 20. Progetti per compilare automaticamente la schedina de 
Totocalcio; antenna elicoidale OC, trasmettitore FM da 1 Watt Le guide di Radioelettronica e 
Computer i transistor unigiunzione. trasmettitore OM, prova cristalli, oscillatore a radio 
frequenza e minitrasmettitore in fonia, mini ricevitore per onde medie 

Ottobre 1984 - L 6 000 - Programmi per Spectrum: come sconfiggere I terribile fantasma che 
impedisce all'omino & cibarsi dehe sue pillole bianche 7 Un nuovo Microdrive con l'interfaccia 
ZX 1 da collegare allo Spectrum per memorizzare con eleganza Microprogramma per ZX 1 il 
computer crea la moda su misura Programmi per Apple 11 fiore giusto per ' i messaggio giusto 
Programmi per Commodore 64 un aiuto per gli smemorati Programmi per ZX81 : calcolo del 
segno zodiacale per superstiziosi e non Programmi per Vie 20 un metodo per titolare i 
videogames il computer diventa consulente del campioni del ciclismo. Spectrum; caccia ai 
vampm Commodore 64 37 secondi per sistemare il cubo d' Rubik Consigli per il Vie 20 
Antifurto universale e il ladro non fa piu paura. Amplicuffia per cht pretende il massimo da un H - 
Fi Monitor acustico per una trasmissione senza sorprese Trasmettitore antibobme per 
risparmiare tempo e delusioni Calibratore di tensione come punto di riferimento Radioricevi¬ 
tore per onde corte Ideabase: S-meter digitale per ricevitore; sensibile ondametro RF 


Gennaio 1985 - L 7 000 - Programmi per Commodore 64. Spectrum e Vie 20: RadioELETTRO- 
NICA & COMPUTER regala un data base utilizzabile per archiviare dischi, libri, cassette e mille 
altre cose 124 Led e un Commodore per una fantasmagorica sintonia Un comunissimo jack e 
un pulsantino per aggiungere al Commodore la più potente delle istruzioni: il reset Un'inchie¬ 
sta questionario per rendere la rivista sempre più rispondente alle esigenze dei lettori Program¬ 
mi per Spectrum 48K Gioco mozzafiato per menti elastiche, chi riuscirà per primo a fare la 
superquaterna 7 Una routine per avere sullo schermo tutte le memorie Rom e Ram, locazione per 
locazione Programmi per Commodore 64 e Spectrum: un calendario elettronico per l'anno 
nuovo. Programma per Vie 20: come decodificare le resistenze partendo dal valore o dai colori. 
Rally automobilistico nei nuovo fantastico vldeogloco. Programmi per Commodore 64 una 
parola magica per trasformare il computer in un grande artista. Come trasformare un vecchio 
registratore a cassetta in una segreteria telefonica efficiente ed economica IDEABASE: quattro 
facili progetti per annullare ogni distanza. Le guide dì RadioELETTRONICA &C0MPUTER come 
far apparir sul monitor i continenti e tutto il globo ricevendo da satelliti artificiali. 

Febbraio 1985 - L. 7.000 - Se la cassetta con l'ultimo programma non carica bene, la colpa può 
anche essefe dei registratore, anzi di una semplice vite Programmi per Commodore 64 e Vie 
20. come lar partire la aratrice o bagnare i fior: anche se si è fuori casa Programmi per 
Spectrum. siete dei buoni fantini e scudieri? Scopritelo con questo videogioco. Un programma di 
calcolo combinatorio per fare tredici al totocalcio. Un eclettico prlnter/plotter per C64 e Vie 20. 
Programmi per Vie 20: come leggere presto e bene Videogioco esotico tra fiumi e coccodrilli. 
Programmi per Commodore 64:un generatore di onde quadre ad alta precisione completamente 
gratuito Panorama sugli MSX. Leguidedi RadioELETTRONICA & COMPUTER: i fototrasduttori. 


Marzo 1985 - LIRE 7.000 Programmi per Commodore 64, VtC 20, Spectrum e Apple. In 
regalo <e adesive per cassetta. Per tutte le bici un progetto elettronico facile facile per avere un 
tachimetro che è quasi un computer Commodore 64 gli strumenti musicali che volete per salire 
sul podio e dirigere la vostra orchestra sinfonica. Per gestire la vostra biblioteca un data base che 
non dimentica nulla. Vie 20: per abili deejay e fantasiosi programmatori una nuova gamma di 
effetti sonori speciali, Uscire dai labirinto può sembrare facile, ma bisogna evitare trappole e 
trabocchetti Spectrum: La versione riveduta e correla del famoso videogiaco del muro, della 
palla e del rimbalzo Un data base per mettere ordine anche nel più disordinato magazzino di 
componenti elettronici Apple: Un esperimento di connettore I/O per rilevare il valore di input 
deile padd e Versione computerizzato del famoso gioco tris: attenzione ali'eftetto tridimesionale 
e poi non c’è pareggio. Tutti i segreti del Printer plotter 1520 per migliorare le prestazoni di 
questa macchina. 


Tagliando richiesta arretrati 


Per ricevere a casa, ssertza aggravio di spese postali, l'arretrato o gli 
arretrati che ti interessano, compila e spedisci subito questo tagliando 
in busta chiusa a 

RadioELETTRONICA & Computer - C.so Monforte, 39 - 20122 Milano 

Sì! Inviatemi i seguenti numeri arretrati di 
RadioELETTRONICA & Computer 

mese/mesi di . 


Cognome e nome 



Cap.Città . Provincia 


□ Allego L . 

□ Allego ricevuta di versamento di L . sul conto 

corrente postale n. 19740208 intestato a Editronica srl - corso 
Monforte, 35 - 20122 Milano 

□ Allego assegno di L.non trasferibile intestato a 

Editronica srl 


i 


Data 


Firma 




























Commodore 



GAMES 



La bocca 

sollevò 
dal fiero 
pasto 


Rispetto al povero 
conte Ugolino, che 
aveva solo un cranio 
da rosicchiare, 
Tornino di questo 
videogame è ben più 
fortunato: ne ha a 
disposizione più di 
venti! Nella sua 
affannosa ricerca di 
cibo, però, il piccolo 
cannibale è un po' 
troppo impetuoso e... 



Figura 1 l re livelli di difficoltà e azione a non finire 
sono le caratteristiche di questo supergame. 


S e è vero, come è vero, che c’è 
sempre una prima volta, allora 
buon appetito: per vincere in questo 
gioco bisogna averne molto, e di un 
genere un po’ particolare, vagamen¬ 
te esotico... Guidato nei suoi movi¬ 
menti dalle vostre agili dita, corre 
sullo schermo un omino (dall’aspet¬ 
to piuttosto polipesco) perenne- 
mente affamato e concentrato nella 
fatica di procurarsi il cibo di cui è 
ghiotto: mele, ciliegie e fragole, ma, 
soprattutto, piccole teste umane! 

Il gioco 


Tre sono i livelli di difficoltà, a 
seconda del numero di crani (20, 24 
e infine 28) che l’omino deve riusci¬ 
re a trangugiare; non è certo di osta¬ 
colo l’inappetenza del piccolo can- 
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Listato 


in RFM ##*#*#**###*#***** 


1? REM m ** 

15 rem m HI IMRPV MAH #* 

2A RFM ** ** 

?5 RFM I . BflRBETTT ** 
30 REM m **■ 

35 REM ** MIl ano m 
40 PEM m ## 


45 RFM ##***•###**##**#*#* 

47 ri P P0KE54296, 15 : POKE 1 :#, 48 • P0KE56. 48 
50 n t=r:HRf <147') SQ$=€HR$ < 19 > +CHR$ < 1 7 ) 

55 02$=ÀQ* FORF=1T022:C2$*C2$+CHR$< 17) : NEXTF 
FA RN$»CHR$<18> :RF$*CHR*<146> 

65 Ci$=rHR$< ]7) 0 0$=Q*+Qf Q7$=Q0l : +PQ$+QQ$ + 0$ 

70 PRINTHL* P0KE53281,2 POKE53280,7 

75 PRINTSO$TAF< 10) "• r-i" 

PO PRTNTTAB<1A)"I R.E. & COMPUTER I" 

82 PRTNTTflB<10)"l I" 

A4 PRINTTABC10)"I PRESENTA I" 

RE PRINTTABCIO)"I I" 

88 PRTNTTABC10) " I "RNf’lìI HIJNGRV MAN "RFS" il' 

90 PRINTTAB(10)"I I" 

92 PRINTTABCIA)" 1 ---- J " 

105 PRINTCHR$<5>QQi : RN$TAB<' 12) 11 ATTENDERE PREGO "PFf 
107 R0KF56334.PFEK(56334)ANB254:POKE1 » PEEKX 1>AND251 
110 FOP T =AT0919 PQKEI +12288 , PEEK <I+53248) NFXT 
1 15 prikF 1 , PEFK < 1 > 0R4 P0KF56334, PEEK <56334 ) OR 1 
I7A P0KE53272. < PEEKf53272)flND240)+12 
125 FORCH=90TO97 FORBV=0TO7 
130 REABNI. I : POKE 12288+8*CH+BV . NU 

135 NEXTBV:NEXTCH 

136 DIMCJJC28) , P$<6> , G$C6> 

197 FnR.T=AT06 P$<J> = "0A00O" :(5$(J) = ". NEXTJ 

138 P*<1> = " 8610" G$a)="LUCfi 
140 NM=A 

14? GOSUB50AA REM PRESENTA?IONE 
145 NF=4 

150 PRIHTCLf : L.=D-89 : POKF53280 . 0 P0KF53281 ,3 : P=0 ; TF=0 
15? REM 

155 PRTNTCI $S0$"USCORE «"P; TAB< 13) "2HI ■ ,, VRL<P*<1 ))i 
TRB < 23)"ÉLEV . ■"L TF=A 
157 IFSWTHENPRI NTC2$TAB< 4 ) "WDEMO.U" 

160 FORF*lTO<L#40)+20 

165 x=RNDf1>#1980 IFX<11440RXM863THEN165 
17Ò POKEX.230 P0KEX+54272.2 RFM MURI ROSSI 
175 NEXTF 

18A FORF=lTOa *4)+16 

1«5 X=RND< 1) #1980 I FX< 11440RX>1863THEN 185 
190 TFPFEK<XX>32THEN185 
192 F>=X 

195 P0KEX.94 POKEX+54272,0 ; REM FACCINE IMBRONCIATE 


20A 

210 

215 

22A 

225 

23A 

232 

235 


NEXTF 

F0PF=lT0C5*L+5) 

X=RND a)*1980 : IFX<11440RX>1863THEN215 
IFPFFK «T X>032THEN215 

POKEX,1. +89 POKEX+54272,L+6 REM FRUTTI 1.2,3 

FnRF=lTONF P0KE2#F+1095,93 P0KE2#F+55367;2 NEXTF 
PF=?044 POKEPF . 93 P0KE54272+PF,0 
RFM POSIZ. INIZIALE FOLLETTO 


?40 GETAf PP-PF 

?42 TF SU THENPRINTC2fTRB<4) " IHDFMOUI" 

245 IFAf =* " 0 " THENPF=PF-1. 

250 IFA$="P"THENPF=PF+1 

?52 TFAf ="S"THENGOSIIB8000 

255 pf=PF-40 IFPF<1144THENPF=PF+84A 

ztfM pnKFPP * 32 

265 TFPFEK < PF)=L+89THENGOSUB200O REM SUONO PUNTEGGI0 
267 IFPEÉK < PF>=94THFNG0SUB2100 

270 IFPFEK <PF >=230THEN25AA RFM SCHIANTO 

271 POKEPF.93 POKFPF+54272,0 :PP=PF 

272 IFTF*<L#4+16)THFN2200 


(continua) 


I simboli del listato 

Diamo qui di seguito un elenco dei (po¬ 
chi) caratteri di controllo presenti nel pro¬ 
gramma e il modo per ottenerli. 


LINEA 

MODO PER OTTENERLI 

75 

Ctrl 1 (colore nero) 

03 

Ctrl 6 (yellow) e Ctrl 1 

155 

Ctrl5 (porpora) e Ctrl 1 . 3 volte 

157 

Ctrl 3 (rosso) e Ctrl 8 

242 

Come linea precedente 

2300 

Ctrl 8 

2575 

Come linea 155 

5005 

Ctrl 1 

5012 

Ctrl 3 e Ctrl 2 

5020 

Ctrl 7 e Ctrl 2 

5025 

Come linea precedente 

5030 

Ctrl 7 e Ctrl 2 

5031 

Ctrl t 

9007 

Come linea 5012 

9044 

Crsr Right 

16000 

Ctrl 7 

16002 

Ctrl 3. Ctrl 2. Crsr Down 

16005 

Ctrl 3. Commodore 1 . Ctrl 1. Commodore 1 


nibale, che anzi, come testimonia il 
caratteristico rumore con cui in¬ 
ghiotte le prede, è voracissimo. A 
osteggiare i suoi santi appetiti sono 
dei volgarissimi muri, molto temibi¬ 
li però: quando nella sua foga va a 
schiantarsi contro uno di essi, l'omi¬ 
no rimane fin troppo frastornato, 
vittima di un vero e proprio tilt! 

Dopo un incidente di tal fatta, ri¬ 
presosi a stento, il nostro eroe deve 
ricominciare da zero, come non 
avesse mai mangiato in vita sua. E, 
fino a quando non sarà riuscito a 
ingoiarsi tutte le testine pronte per 
lui sul video, non potrà passare al 
livello successivo. Le piccole teste, 
dal canto loro, seguono con autenti¬ 
ca partecipazione (e non c’è da stu¬ 
pirsene) le avventure del loro esti¬ 
matore: attendono l’ingiusta fine 
con espressione imbronciata e, 
quando l’omino va a sbattere sul 
muro, si rallegrano e sorridono; an¬ 
zi, lo prendono anche in giro! 

Il ghiottone intanto corre senza 
posa; l'unico momento di ristoro 
idilliaco, per lui, è l’apparizione di 
qualche frutto disintossicante: mele 
durante il primo livello, ciliegie nel 
secondo e succose fragole nel terzo. 


Come vincere 


L’omino viene comandato con i 
tasti O e P, che lo muovono rispetti¬ 
vamente verso destra e verso sini¬ 
stra. Di livello in livello aumentano 
sia la difficoltà dell’obiettivo, cioè il 
numero di crani da mangiare, sia la 
quantità di muri contro cui l’omino 
può schiantarsi; aumenta anche la 
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La bocca sollevò dal fiero pasto 


velocità con la quale il nostro eroe si 
muove (in assenza di comandi il suo 
moto è verso l'alto). Oltre a guidar¬ 
lo a destra o a sinistra, l’unico inter¬ 
vento possibile per evitargli l'impat¬ 
to con un muro è quello di premere 
il tasto S: l'omino salta, in questo 
modo, in una posizione del tutto ca¬ 
suale; forse, quindi, anche peggiore 
di quella da cui si voleva salvarlo! 

I complimenti spettano, natural¬ 
mente, solo a chi riesce a completa¬ 
re il terzo livello; comunque, termi¬ 
nati i quattro omini a disposizione, il 
giocatore può inserire il proprio no¬ 
me nella lista dei primi classificati, 
sempre che abbia totalizzato un 
punteggio idoneo. Le lettere del no¬ 
me da inserire si scelgono con i tasti 
< e > e la conferma della lettera si 
dà con il tasto | . 11 gioco è inoltre 
dotato di demo automatico e pre¬ 
senta i punteggi assegnati per ogni 
boccone. 

Il programma 


Riga per riga, ecco diffusamente 
le spiegazioni necessarie per la com¬ 
prensione del programma. 

47 cancellazione dell'area delle va¬ 
riabili e definizione dell'area massi¬ 
ma per il basic e per l'allocazione 
delle stringhe. 

50-65 definizione delle stringhe di 
controllo del cursore. 

70 cancellazione schermo e colori di 
bordo e sfondo. 

75-105 schermata iniziale di pre¬ 
sentazione e attesa. 

107-120 disabilitazione STOP e co¬ 
piatura dei primi 115 caratteri ROM 
in RAM. 

125-135 ridefinizione dei caratteri 
da 90 a 97. 

136 dimensionamento vettore indi¬ 
rizzi video delle faccine, stringhe dei 
punteggi e nomi dei giocatori. 

137 valori iniziali delle variabili. 

138 punteggio più elevato. 

140 numero di mosse deU'ommo du¬ 
rante il DEMO. 

142 salto alla parte presentazione. 
145 n. iniz. di omini a disponibili. 
150 cancellazione video, livello ini¬ 
ziale di gioco; schermo e bordo. 

155 stampa del livello di gioco e del 
punteggio totalizzato, nonché del 
punteggio più elevato raggiunto. 

157 variabile di controllo DEMO. 
160-175 ciclo di visualizzazione ca¬ 
suale dei muri del gioco in base al 
livello di difficoltà (L) . 


273 F0PF*1T0<120-25#L+70*SW) NEXTF 

27 4 PPINTC2$TAB(4V "REM 9 SPAZI 

27 5 IF < HOT SWÌTHEN740 
777 NM»NM+1 IFNMM0THFN142 
280 F0RV=1TO40•NEXTV GOTO240 

2000 P0KF54277,10 POKF54??8,50 P0KE54272, 37■ P0KE54276,17 

2010 FORF«25TO50:P0KF54273,F:NEXTF 

2012 GOSUB 10000 

2015 P=P+ < L *50 

2070 PRINTSQ$TAB < 6)P 

2075 RETURN 

2100 P0KF54277,10 P0KF54778,50 PQKE542 72 ,37 :P0KE54276.17 

2110 F0RF»5TO30 P0KE54273,F NFXTF 

211? POSI IBI0000 

2115 P=P+50*( TF=TF+1 

2120 PRI NTSOfT AB 6 > P 

2125 RETURN 

2200 L~l+1 TF=0 

2205 P0KE54277,10 P0KE54278,50 : P0KE54272,37 P0KE54276,17 
2210 F0RF=1T020 : FORG=1TO50 NEXTG X=RND<0*255 P0KE54273,X :NEXTF 
2212 G0SUB10000 
2215 IFl C4THEN152 

2300 PRINTC2fTAB<10>"COMPLIMENTI MISS" 

2310 F0RF»1T01000 :NEXTF G0SUE15000 
7320 GOTO145 

2500 POKEF'F. 95 P0KE54277,9 P0KE54278, .9 ■ P0KE54273, 6 P0KE54272, 16 
2505 P0KE54276, 179 

2517 F0RH=1TO30:F0RG=1TO30 NEXTG POKE53280,H NEXTH POKE53280.0 

2518 GOSUB10000 
2520 F0RA=1TCKL*4+16) 

2527 IFPFEK < CX < A > > =32THE N7530 
2525 P0KE<CX<R)>,96 
7530 NEXTA 

2535 P0KE54277, 10 P0KE54278,1.8 P0KE54272.30 P0KE54276, 17 
7537 F0RF= 1. T03 FORG=20TO50 P0KE54273, R : NFXTG FORT» 1T040 
NEXTT^ NEXTF 
2540 GOSUB10000 

7542 P0KEPF,730 POKEPF+54272,2 

2546 IFfSW)THEN142 

2547 NF=NF-1 IFNF=0ANDP>0THENGOSUB15000 

2548 P«P-C«rL*4+16>-TF)#20: IFP<0THENP=0 
2550 IFNF=0THEN142 

255? FORACIT0<L*4+16) 

7554 P0KE< CX< A > > , 94 PQKE<ry.< A) >+54272.0 : GQSIIB20000 GflSI IBI0000 
^ NEXTA 
2570 tf=0 

?57? POKE1.097+2*NF, 92 : P0KE55369+2*NF, t 

2573 PRINTSG*" " REM 33 SPAZI 

2575 PRINTSP*"«BC0RE l"P.iTAB< 13)"SUI ■"VALCPf<O)J 
TAB<23>"«LEV.H"L : TF=0:G0T0232 
3000 RFM DATA F0R FRAGOLA 
9005 DATA34,20 , 8 , 110,747,126 , 240 , 24 
9010 RFM DATA F0R MEI A 
9015 DATA4•8 • 59 . 126.255,255,126.240 
90?0 RFM DATA F0R CILIEGIA 
3025 DATA32.16,8,60,126.126,126,60 

4000 DATA126<219,219,255,165,90,165,0.60-66,165,129,153,165, 

66,60 

4010 DATA170.85 ■ 170,85,126,219.255,189,60,66,165,129,165,153, 

56.60 

4070 DATAI 70.85-170,85,126,719,255,189,60,66,165,129,165,153, 

66.60 

S000 F'RINTCl $ D=90 NM=0 814=0 = 0 

5002 POKE53280 , 0 P0KE53281,8 

5005 PRINTQ0$TAB<9)"■ R.E. & C0MPUTFR " 

5010 PRINT(?$TAB< 12)"THF HUNGRV MAN" 

5012 PRINTTAB< 12) -*" 

5015 P0KF1442,D P0KE55714,3 

5070 PRINTQ7fTAB<7>"Sim T0 START THE GAME" 

5075 PRINTQ$TAB<7>"H?1S» T0 SEL ECT DIFFICULTV" 

5030 PRINTQ$TflB(7)"B31SI T0 TERMINATE" 

5091 PRINTOOfQfTABcll V-iCOPVRIGHT <C> 1985 " 

503? FORF=1TO90 FORG=1T050 NEXTG•POKE53280 , F•NEXTF POKE53280,0 
5033 F0PF= t TÒ ì 000 GFTA$ I FA*0 " " THEN5037 
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5034 

5035 
5037 
*=,(340 
5042 
5045 
5050 
5052 
8000 
8005 
0010 
8015 
8020 
9000 

9004 

9005 
9007 
9015 
9020 
9025 
9030 
9035 
9040 
9042 
9044 
9050 
9055 

1.0000 
15000 
15010 
15015 
15020 
15025 
15030 
15035 
15040 
15045 
15050 

15052 

15053 
15055 
15060 
15065 
15067 
15070 
15072 

15074 

15075 
1.5077 
15078 
15080 
15085 

15087 

15088 
15090 
15095 
15100 
15105 
15110 
15112 
15115 


GFTfll: IFR$=" "THENGOSUB9000 GOSUB15000 
ÌFfì$=" 1 "THENSW=< 1=0) RETURN 
IFRf “"2 " THFN5050 

IFR$="3"THFNFOPF=ITO!000 NFXTF END 
RFTUPN 

Tl=ri+1 I FB>92THFNB=90 

prikTF 1442, P P0KE55714,3 GGTO5033 

GÓSIÌB2000 X= I NT ( RND < 1 ) #2000 > 

X=INT <RNB<1>#2000) 

I FX<" 11440PX> 1903THEN8005 
I FPFFK<X >=230ORPFEK<X)=94THEN8005 
PF-X POKEPP,32 ^ RETURN 
REM PPFSENTRZIONE PUNTI 
PRINTCLf POKE53280,0 
PPINTQQfQfTRB < 14)"ORME POINTS" 
PRTNTTRBC14) "RT 


<1 LEV.) 1 


<2 LEV.)' 


<3 LEV.>" 


POINTS" 


FTiKE 1351. • 90 P0KE54272+1351 • 2 
PRI NTQQfTRB H2) "50 PO INTS 
P0KE1471,91 P0KE54272+1471,2 
PPINTOQfTRB < 11)"100 POINTS 
POKE1591,92 : P0KE54272+1591,2 
PRINTQQtTRB<11>"150 POINTS 
PQhrE 1711,94 P0KE54272+1711,2 
PRINTOQfTRB <11)" M50-100-150 
FORF=1TO2800 
NFXTF PRINTCLf RETURN 

P0KF54276,0 P0KE54277,0 = P0KE54278,0 : RETURN 
PR INTOL ■$ POKE53280 • 0 : P0KE53281,3 
GOSUB16000 REM PUNTEGGI 
PRINT0QfTRB<7), 

FORR=0TO1 
F0RRR=1T013 

PRINTCHRfCR#13+PR+64)" " , 

NFXTRR : PRINT : PRINT PRINTTRB<7 )i 
NFXTR 

PRINTTRBC7)"END" : Zf ="" 

P0KE55983,6 : LF=65 PI =5^903 
TF ■'HOT SW)THEN15055 
FORR= 1TO3000 NEXTR RETI IRN 
GETRf IFflf=""THEN15055 
jFRf=" , "THENPOKEPI. ,8 PL=PL-2 L E=l E-t 
ÌFR$="."THFNPOKEPL ,8 PL=PL+2 l E=LE+l 
IFPL“56143RNDRt="T"THEN15088 
IFPL=56009THENPL=56063 
IFPL=56089THENPL=56143 
IFPL=56141THENPL*56087 
IFPL“55981THEHPL“56143 LE=91 
T FPI =58145THFNPL=55983 LE=65 
IFPL =56061 THFNPl. =56007 
POKEPL ,6 

jFRf="f"THEN7$=Zf+CHR$ ( LE) : IFLEN(?f)=8THEN15088 
GOTO! *=1055 

pf ■: 8 ) =STR$ <P ) ^ Gf ( 6 > =7$ 

HB“<1=1) 

F0P0=1T05 

IFVRI. < Pf ( O ) ) >=VfiL ‘r Pf <0+1 > ) THEN 151 12 
Pf (0 =Rf ( 0 ) : Pf <o ) =Pf < 0+1 > P* <0+1 )“Pf< 0) : HB= < 1 =0> 
Gf(0 ) =Gf < n ) : Gf <6 ) =Gf < 0+1 ) Gf <0+1 ) “Gf < 0) 

NFXTO 

IFCNOT HB)THEN15090 
PP I NTCLf : GOSUB 16000 

NFXTF RFTIJPN 
18000 PPINTQfTRB<12)"SfTOBRV'S HIGHFST" 

16002 PPINTTRB<12)"»-«1" 

FORK=1T05 

PR INTTRB < 8 > " UT K " 13" TRB < 16-LEN< Pf < K ) ) "• " ■ " Pf < K > 


15120 
15125 FORF=ITO1800 


1 8004 
16005 


TRB<18)";j"Gf(K) 

PRINT NEXTK 
RETURN 

P0KF54277.9 P0KE54278,1 
20005 P0KF54276,129 
20007 FOPH=1T0180 NEXTH 
20010 RETURN 


1601.0 

16015 

?0000 


P0KE54273> 1.0 PQKE54272 • 60 


180-200 ciclo di visualizzazione ca¬ 
suale delle faccine imbronciate e co¬ 
piatura locazioni video di inseri¬ 
mento nel vettore C%. 

210—230 cielo per inserimento ca¬ 
suale dei frutti (carattere inserito in 
funzione del livello di gioco) . 

232 visualizzazione del numero di 
omini a disposizione. 

235 posizione iniziale dell’omino. 
240 lettura da tastiera di un eventua¬ 
le comando. 

245-252 analisi del comando. 

255 spostamento automatico dell’o¬ 
mino verso l’alto. 

260 cancellazione dell'omino dalla 
posizione precedente. 

265-270 carattere sotto l’omino. 

272 controllo sul numero totale di 
testine mangiate. 

273 ciclo di ritardo in funzione del 
livello di gioco. 

275 controllo se in fase di DEMO. 
2000-2110 suono preda mangiata. 
2012 routine di reset dei valori per 
gli oscillatori. 

2015 aggiornamento punteggio. 
2200-2212 fine di un liv. di gioco. 
2215-2320 complimenti per la con¬ 
clusione del gioco. 

2500 — 2518 suono per uno schianto. 
2520 — 2530 modifica delle faccine 
imbronciate in faccine sorridenti. 
2537 risatina delle faccine. 

2547 aggiornamento degli omini. 

2548 sottrazione di un certo punteg¬ 
gio dal totale. 

2552—2554 disposizione delle facci¬ 
ne uguale a quella iniziale. 

2572 eliminazione di un omino. 
2575 stampa del punteggio. 
3000—4020 dati caratteri ridefiniti. 
5000-5031 stampa del primo scher¬ 
mo di presentazione del gioco. 
5032-5034 attesa di comando. 
5037—5045 analisi del comando. 
8000—8020 routine di salto casuale. 
9000-9044 visualizzazione del pun¬ 
teggio assegnato durante il gioco. 
10000 reset degli oscillatori. 
15000—15053 visualizzazione dei 
punteggi più elevati. 

15055-15087 inserimento nome. 
15095-15112 ordinam. punteggi. 

16000 — 16015 stampa dei punteggi. 
20000-20010 rumore. 

Carlo Barbetti 


Questo programma è disponibile 
su cassetta. 

L'elenco, i prezzi e le modalità 
d'ordine di questa e delle altre cassette 
disponibili sono riportati alle 
pagine 81 e 82. 
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MAGAZZINO 


Chi utilizza i floppy disk per il 
Commodore sa cos'è 
l'emarginazione: ogni nuovo 
programma da copiare, infatti, gli 
viene immancabilmente proposto in 
versione cassetta, per lui 
scomodissima e spesso inutilizzabile. 
L'ultima parola, però, non è ancora 
stata detta: adesso c'è GESMAG... 


Archiviare 

su nastro? 
No, grazie 



E un fatto inconfutabile: la mag¬ 
gior parte degli utenti Commo¬ 
dore, per far girare i suoi program¬ 
mi, si affida ai nastri magnetici. La 
più diffusa, la più importante perife¬ 
rica di ogni Commodore che si ri¬ 
spetti è il registratore piccolo, quel¬ 
lo che era stato messo da parte con 
l’acquisto dello stereo e che, grazie 
all’avvento del computer, ha cono¬ 
sciuto una nuova stagione di succes¬ 
so. Se una rivista pubblica un nuovo 
listato, se un amico inventa un game 
davvero fantastico, se una software 
house fa un'offerta speciale, potete 
star certi che si tratta di programmi 
su cassetta, assolutamente indigesti 
al vostro discofilo Commodore. 

È dunque il momento di proporre 
un programma su disco creato appo¬ 
sitamente per il Commodore 64; un 
programma gestionale, dalle molte 
applicazioni, per l’archivio e il mo¬ 
vimento delle scorte, non importa di 
quale genere. GESMAG è utilizza¬ 
bile per gestire magazzini di qualsia¬ 
si tipo (dai generi alimentari ai com¬ 
ponenti elettronici) e, perché no, 
anche per conservare e catalogare 
gli articoli interessanti apparsi su ri¬ 
viste e periodici. 

Come schedare 
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Se nel listato si sostituisce la paro¬ 
la ARTICOLO con la parola TITO- 




Listato 


5 rem******************************** 

6 REM**»* *** 

? REM*»** GESMAG *** 

8 REM**** GESTIONE MAGAZZINI *** 

? REM**** LEV i.l 20/1/85 *** 

IC REM*** *** 

1 j REM******************************* 

20 POKE53280,246:P0KE53281,255:PRINTCHM(144) 

25 PRIMICHRil147)iPRINT 

30 PRINT* RADIO ELETTRONICA & COMPUTER’ 

35 PRIMI:PR1MT’ PRESENTA’ 

40 F0RI=1TO4:PRINT sNEXT 

45 PRIMT SPRINT SPRINT’ GESMAG’ 

50 F0RI=1TD5:PRINTsNEXT 

55 PRINT’ ’CHM(18)’ GESTIONE MAGAZZINI * 

60 PRINT SPRINT* SCRITTO DA’ 

65 PRINT:PRINT’ P. CARNIEL’ 

70 FORI=1T03000sNEXT:PRINTCHRF<147) 

80 CRF=’HH:MM' slFTI >864000THEN100:REM MENU' 

85 PRINTCHRFL147)sPRINTsPRINTsPRIMT’ OREsMINUTI (HHsMM) 

’;sIHPUTCRI 

90 TIF=LEFTF<CRF.2)*RIGHTF(CRF,2)+“00* 

100 REM*** ELENCO FINZIONI *** 

105 PRINTCHRF(147)SPRINT SPRINT SPRINT 
110 PRINT’ ’CHRF(18)’ ELENCO FUNZIONI 

■sPRINTsPRINTsPRINTsPRINT 
115 PRINT’FI ) LAVORO CON FILE ESISTENTE" 

120 PRINT:PR1NT*F2 ) ESP/WSIONE FILE ESISTENTE* 

125 PRIMI SPRINT ’F3 ) CREAZIONE NUOVO FILE’ 

130 PRINT :PR1NT’F4 ) CANCELLAZIONE FILE’ 

135 PRIMI:PR1NT’F7 ) FINE LAVORO’ 

140 ZF=* ’:DQF=* OGGI* 

145 PRIMI SPRINT SPRINT iPRIMI’BUALE FUNZIONE ’’ 

150 GETFF:IFFF=’’ORFF=CHRF(!35)THEN150 
155 FORF=133T0138:1FFF=CHR<(F)THEN170 
160 NEXTF 
165 GOTO!50 

170 IFFF=CHRF(136)THEN2800:REM FINE LAV 
200 REM*** ROUTINE LEnURA ELENCO **« 

205 REM*** FILES ESISTENTI *** 

210 OPEN15,8,15,"I’ 

215 0PEN3,8,3,’usELENCO FILES,S,R’ 

220 INPUTwlS.É 

225 1F E=62THEN CL0SE3:PR1NTCHIW< 147) SPRINT SPRINT" 
*:FF=CHRF(134):GOT03OO 

230 INPUTI3.X:FOR C=lTQX:INPUT«3 f Nm<C):NEXT:CL0SE3 

235 PRINTCHIm 147)’ ’CHRF(IB)’ ELENCO FILES ESISTENTI * 

240 PRIMTsFOR C=1T0X:PR1NT ,, C’> ’NIF(C)sNEXT 

245 IFF$=CHR$<134)THEN2200:REM CREA NUOVO FILE 

250 1F FF=CHRF<137)THEN700:REM ESPANS, 

255 1F FF=CHRF(138)THEN2100:REM CANCELLA FILE 
260 PRIMI SPRINT 

265 PRINT’OUALE FILE 0’CHRF<I57)CHRI(157)CHRF<157); 

270 INPUTD 

275 IF D < 0 ORO)XT HEN235: REM ELENCO FILES 
280 IFD=0THB(CL0SE15:GOTO100:RB1 MENU' 

285 60T0800 : REM MESSAGGIO 1 

300 REM*** ROUTINE INSERIMENTO »** 

305 REM*** NUOVO FILE *** 

310 X=X*1 

315 PRINTLHRF(14?) 

320 INPUT’NOME DEL NUOVO MAGAZZINO’;NOF 
325 1FN0F=’’THEN315 

330 GOSUBIROOsREM CONTROLLO ES1ST.FILE 
335 NN(X)=NW:FM$(D)=NOI 
340 C=1 

345 DlftlFdOO) sDIMQ(lOO) sDIMQMdOO» 

350 IFC)100THEN460:REM INSER1M.ART1COLO 

355 GOT 0415 : REM 1NS.ARTI COLO 

400 REM*** ROUTINE INSERIMENTO **» 

405 REM*** ARTICOLO *** 

410 IFONATHEN460 :REM 1NSER1M.ARTICOLO 
415 PRINTCHR«(147)SPRINT 
420 PRINT’INSERIMENTO ARTICOLO’C 
425 PRINTsINPUT'NONE ARTICOLO’:NF(C) 

430 IFNF(C)=*’THBI415:REM INS.ARTICOLO 
435 IFLEN(NF<C))>18THEN400:REM INS.ARTICOLO 
440 IFNt(C>=’FINE’ANDFt=CHR$(134)ANDC=lTHENCLR:GOT0100:REM MENU 
445 1FNF < 0= ’F INE ’ANDFF=CKRF ( 137 'ANDC=NA-24THEMA=C-1 SGOTTO 
1400 :REM EL.OPZIONI 

450 I FNF ( 0= ’ F INE*ANDFF=CHRF( 13?)THENC=C-1 :NA=C:G0TO2700:REM 
ORDIMENTO BUBBLE 

455 1FN$(C)=’F1NE’THEI'MA=C-1 :GOTO2700:REM ORDINAMENTO BUBBLE 
460 CT=0 


465 1041(0=’FINE'THEN5000R.DATI E INDICE 
470 F0RZ=1T0C 

475 1FNF<C)=NF<2-1)THEN550:REM MESSA6. 

480 NEXTsCTd 

485 PRINTslNPUT’QUANTITA' ATTUALE’:Q(C) 

490 PRINT : INPUT"Q1.*ANT ITA' MINIMA” ;ÓM(P 
495 C=C« I 

500 G0T0350:REM CONTROLLA SE FILE PIENO 
550 REM*** STAMPA MESSAGGIO *** 

555 PRINTCKRFd 47) SPRINT : PRINT 
560 PRINT’ARTICOLO GIÀ' PRESENTE’ 

565 FORIdTOIOOO sNEXT 

570 GOT0415:REM INS.ARTICOLO 

600 REM*** ROUTINE MEMORIZZAZIONE *** 

605 RB(*** FILE DATI E INDICE *** 

610 OPEN2.8,2 l ’0:’*Nn<D)*’.S.W 

615 INPUTilià.N.Mt 1 T.S:IFN<)()THENPRINTCHRT(147)CHR$(18)N;MT; 

T:S:CL0SE2:GÒTÒ14IP 
620 PRINTN2,NA 
625 FOR C-1T0NA 

630 PR]NT*2,NF(C>ZFQ<C)ZFGM(C> 

635 NEXT 
640 CL0SE2 

645 1F FF=CHRFd37)THENCLOSEI5:60T01400:REM EL.OPZIONI 
650 0PEN3,8.3,"30sELENCO F1LES.S.U’ 

655 lNPUìitl5 1 N,Mt.T,S:IFN<)0THENPRINTCHR|(147)CHRt(18)NiM$i 
T ; S:CLOSE 3 :GOT 01410 
660 PRÌNTH3.X 
665 FOR I=1T0X 
670 PR]NT#3,NNld) 

675 NEXT 

680 CLOSE3:CLOSE15 

690 I FFF=CHRFd 34 )0RFF=CHRF(138)THENCLR sGOTOl 00: REM MENU' 

695 GOTQ14CO:REM EL.OPZIONI 

700 REM** ROUTINE INPUT ESPANSIONE ** 

705 PRINTSPRINT 

710 PRINT’QUALE FILE VUOI ESPANDERE 0*CHRFd5?)CHRF(157)CHRF 
(157); 

715 INPUTD 

720 1FD(O0RD>XTHEN235:REM ELENCO FILES 
725 IFD=0THENCLOSE15:GQTO100:REM MENU' 

730 GOSUB2400:REM LEGGE FILE DISCO 
735 C=C*1 

740 GOT0400:REM INS.ARTICOLO 

800 REM*** ROUTINE MESSAGGIO 1 *** 

810 PR1NTCHRK147):F0RI=1T08:PRINTsNEXT 

815 PRINT* “CHRK18)’ CARICAMENTO DATI ’ 

820 PRINTSPRINT SPRINT* FILE’ 

825 PRINTsPRINTsPRINT; 

830 FQRMTOINT(39-LEN(WF(D)))/ , 2: PRINT* ’ ; sNEXT 
835 PRINTCHRF<18)’ “N1F<D)* " 

840 GOSUB2400: REM LEGGE FILE DISCO 

845 GDT01400:RB1 EL.OPZIONI 

1000 REM»** ROUTINE DI RICERCA <** 

1005 REM*** ARTICOLO »** 

1010 RF=’’:U=0 

1015 PRINTCHR$(147):INPUT’NOME ARTICOLO’;RF 
1020 IFVAL(R$)>NATHENPRINTsPRINTsPRINT’VI SONO SOLO >"W< 
ARTICOLI NEL FILE’ 

1025 1FVAL(RF))NATHENFORH=1T01500sNEXTsGOTOl015 
1030 IF ’ FINE ’T HEN1 400 : REM EL.OPZIONI 
1035 1FVAL ( RF ) )0ANDVAL(RF)< =NATHENY=VAL< RF) : U= 1 : GOT 0110 0 : REM 
INPUT VERIFICA 

1040 IFVAL(RF))NATHENPRINTCHRF(147):FOR1=1T011SPRINT sNEXT: PRINT’ 

■ , 

1045 1 frzAL(RF)>NATHENPRINICKRF(18)’ FINE LISTA *:F0RK=IT0999s 
NEXTsGOTOl000 
1050 CT=OOR<CT):A=0 
1055 FOR Y=1T0NA 

1060 1FRF=LEFTF(MF(Y),LEN(RF))THENA=1sGOTOllOOsREM INPUT VERIFICA 
1065 NEXTY 

1070 CT=0OR(CT):IFA=lTHEN1000:REM RICERCA ARTICOLO 
1075 PRINTSPRINTsPRINT’ARTICOLO INESISTENTE* 

1080 FOR HHdTOl 500 sNEXT 
1085 GOTOIOOO 

1100 REM** ROUTINE INPUT VERIFICA *** 

1105 CT=(CT)OR(CD):CD=0 

1110 GOSUB23GO : REM VIS. QUATTI TA' 

1115 PRINTSPRINTSPRINT 

1120 PRINT'MODIFICA (N/S/A/F) N’CHRF(157)CHRF(157)CHRF(157); 

1125 INPUTDF 

1130 IFDF='F’TKEN1000:REM RIC.ART. 

1135 lFDF=’A'THBICTd:GOTO260O:REM AMULLAMENTO ARTICOLO 
1140 1F DF=‘S‘THB4CD=1 : GOTOl 200 : REM CARI CO/SCAR1 CO 
1145 CT=(CT)ORO 

1150 ]FA=10RU=1THENRF=STRF(Y»1):GOTO1035:REM RICERCA ARTICOLO 

(continua) 
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LO, e Q.MAG e Q.MIN con NU¬ 
MERO RIVISTA/ANNO e PAGI¬ 
NA, ecco che avrete realizzato un 
magnifico schedario elettronico 
dentro cui ricercare il titolo che vi 
interessa. A tutto il file darete per 
esempio il nome "INDICE RADIO 
ELETTRONICA &COMPU- 
TER". GESMAG è capace di gesti¬ 
re individualmente sino a dieci file, 
ognuno dei quali può contenere cir¬ 
ca 800 articoli. La ricerca di un arti¬ 
colo all’interno di un file è discreta¬ 
mente veloce in quanto eseguita a 
pettine in RAM. 

Nel caso della memorizzazione di 
file a molti articoli, la routine di or¬ 
dinamento "BUBBLE SORT" ri¬ 
chiede invece un certo tempo: asso¬ 
cia infatti a una notevole semplicità 
concettuale una certa lentezza. Il fi¬ 
le da ordinare viene cioè scandaglia¬ 
to tante volte quanti sono i suoi ele¬ 
menti; a ciascun passaggio l'elemen¬ 
to di valore maggiore tra quelli ri¬ 
masti viene ordinato e "sale a galla" 
come una bolla. Un indubbio van¬ 
taggio si avrà sostituendo questa 
routine con un’altra più veloce, per 
esempio "QUICKSORT". 

Il programma, per essere di facile 
comprensione, utilizza file sequen¬ 
ziali su disco; questo, oltre tutto, 
rende possibile l’utilizzazione di tali 
file anche per altri programmi del¬ 
l’utente. 

Come funziona 
e come è fatto 


Dal diagramma a blocchi sempli¬ 
ficato del programma è possibile ve¬ 
dere che GESMAG ha una struttu¬ 
ra piuttosto articolata. Le dimensio¬ 
ni del programma, tuttavia, sono 
abbastanza contenute, grazie al fat¬ 
to che le stesse routine e subroutine 
sono utilizzate per svolgere funzioni 
diverse. Una volta lanciato il pro¬ 
gramma non vi è pericolo di "inchio¬ 
darlo"; l’utente è guidato da MENÙ 
e messaggi e tutti gli input da tastie¬ 
ra sono controllati. Solo quelli validi 
vengono accettati e, anche nella ma¬ 
laugurata ipotesi che venga premu¬ 
to un tasto indesiderato, avrete la 
possibilità di tornare al menù di par¬ 
tenza. le cui funzioni sono esamina¬ 
te qui di seguito. 

FI) LAVORO CON FILE ESI¬ 
STENTE. Permette di utilizzare un 
file già esistente tra quelli che ven- 


1155 G0T01030 

1200 REM** ROUTINE CAR1C0/SCAR1C0 *** 

1205 GOSUB2300:REM OIS.QUANTITÀ^ 

1210 PR1NT: PRINT:PR1NT 

1215 PRINT'CARICO 0 SCARICO (C/S) S"CHR»<15?)CHR»<i5?)CH»<15?); 

1220 IMPUTO» 

1225 !F 0$="S*THENI240 

1230 K»="CAR1 CO':GOSUB2300:REM VIS.QUANTITÀ 

1235 GOT02500:REM dRCA QUANTITÀ 

1240 K^" SCARICO* : GOSUB230G : REM VIS.QUANTITÀ' 

1245 G0T02500:REM VERIFICA QUANTITÀ 
1300 REM*** ROUTINE MEMORIZZAZIONE *** 

1305 REM*** FILE DATI *** 

1310 0PEN2,8,2, “30:“ *W»(D) ♦* .S.W 

1315 INPUT* 15,N,T,S: 1FN<)0THENPRINTCHR*( !4?>CHR»( 18)N: T ;S:CL0SE2 :G0T01410 
1320 PR1NTH2.M 
1325 FQRI=1T0NA 

1330 PR]NM2,N»< 1 )Z»Q(I)2IQM<1) 

1335 NEXT1 
1340 CL0SE2 

1345 GOTO1505:REM VALIDATE DISCO E MENU' 

1400 R01*** ELENCO OPZIONI *** 

1405 PRINTCHRK147) 

1410 PR1NT:PRINT 

1415 F0Rl = lT01NT((33-LEN(NM» , :D)))/2):PRINT" "::NEXT 
1420 PR1NTCHR$( I8)“ FILE "HMD)* ' 

1425 PRWTiPRlNT’ 

1430 PR1NTCHRV: 18)* OPZIONI " 

1435 PRINT:PRINT:PRINTìPRlNT 
1440 PRINT"1) AGGIORNAMENTO" 

1445 PRINT: PRIMI 

1450 PRINT*2) VISUALIZZAZIONE SITUAZIONE" 

1455 PRINT:PRINT 

1460 PRINT‘3) STAMPA SITUAZIONE" 

1465 PRINT:PR1NT 

1470 PRINT*4> FINE LAVORO" 

1475 PRINT:PRINT:PRINT:PRINT 

1480 GETV»:1FVÌ<CHR*(49)ORV»>CKW<52)TKEN1480 

1485 CNVAL(V$)GOTOIOOO,16OO.17OO:R01 RIC.ART,LETT.FILE D1SC0.SIAMPA 

1490 IFCTO0THENG0SU82000:RÉM MESSAGGIO 2 

1495 IFCTO0ANDF«=CHR*<134)THEN600:REM MEMORIZZA FILE DATI E INDICE 

1500 IFCTO0THEN1300:REM MEMORIZZA [ATI 

1505 R01** VALICATE DISCO E MENU' *** 

1510 I FCT< >0THENPRINTN 15, *V7" 

1515 CLR:GOT0100:REM MENU' 

1600 REM*** ROUTINE DATI FILE *** 

1610 Z=0:H=1 

1615 TE$=LEFTi<Tl*.2)*": , *NlD*(T]» J 3 1 2) 

1620 PRINTCHRK147)" "TE»:" SITUAZ.MAGAZZINO AL: *;D0»:PRINT 
1625 PRINT" ART]C0L0"TAB<21 >"QUANTITÀ'"TAB(31 )"Q.MINIFVA" 

1630 F0R SS=1TQ40:PRINT"*";:NEXT 
1635 PRINT 
1640 Z=Z+1 

1645 IF Q(ZXQM<Z)*0M<2)*.2THENPRJNTCKR*<]8): 

1650 PRINTZTAB(4)N$(Z)TAB<23)" *Q(Z)TAB(33)‘ "0M(Z1 

1655 FOR SS=IT03?:PRINT*- * ;:NEXT 

1660 IFZ=NATHEN1Ó75 

1665 1FZ=M*10THEN1685 

1670 GOTO1635:REM DATI 

1675 GETDÌ:lFOtOCHR»(13)THEN1675 

1680 GOTO!400:REN EL.OPZIONI 

1685 cnw : 1FW<>CHW< 13>ANODI<)" F"THEN1685 

1690 IFD$=’F"THEN1400:REH EL.OPZIONI 

1695 PRINTCHRX147) :M=M*1 : GOTO! 620 : REM DATI 

1700 REM*** ROUTINE STAMPA *** 

1705 REM*** DATI FILE *** 

1710 PRINTCHRK 147) : PRINT: PRINT :PRINTCHR$( 18)* DATA ODIERNA "CHRK146): 

1715 PRINT" 66 MW AA "CHR*(15?)CKRI(157)CHM(157)CHRI <157)CHR$<157); 

1 720 PRINTCHWC I5?)CHR*(157)CHR*< 157)CHR»< 15?)CHRI< 157)CHR* ( 157)CHR»( 157)• 

1725 1NPUTD0I: IFLEN(DO»))9THEN170tl:REM STAMPA 
1730 0PEN2.4 

1735 PR1NTI2,"SITUAZIONE MAGAZZINO *M$<D)" AL: "DOT" ORE: "TEI 
1740 PR1NTR2,:PR1NTR2. 

1745 PRINTH2.'ARTI COLÒ:"TABU 7)'Q.N1NIMA"1AB(Ì2>’Q.MAGAZZINO" 

1750 FOR T-1T080:PR1NT#2,'-";:NEXT:PRINTH2 
1755 FOR C=1T0NA 

1780 PRlNTII2,TAB(5)N$(C)TAB(22-LEN(Ni(C)))QM<C)TAB<22-lEN (STR»<QM<C>»)Q<C): 
1785 IF Q(CXfiM(C)-QM(C)*.2THENPRINTH2,"**********" ; 

1 790 PRINT1)2 
1795 NEXTC 

ÌS05 I^CTOOTHEHlSOOiREM MEMORIZZA DATI 

1810 G0T01400:REM EL.OPZIONI 

1900 REM*»* ROUTINE CONTROLLO *** 

1905 REM*** ESISTENZA FILE *** 

1910 F0RI=1T0X-1 :IFN0$=fW(I)THENl?20 
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1915 NEXT:RETURN 

1920 PRIKTCHRt<14?):PR1NT 

1925 PRINT’NQNE CH'ESISTENTE’ 

1930 FOR1=1T01000 sNEXT 

1935 60TD315:REJ1 INSERIM.NUOVO FILE 

2000 REM*** ROUTINE MESSAGGIO 2 *« 

2010 PR1NTCHRV. 147):F0RI S 1T09iPRINT:NEXT 
2015 PRINT' , CHR4 i :i8)' MEMORIZZA?IENE DATI ’020 

PR1NT SPRINT 

2025 PRINT’ FILE' 

2030 PRINT:PRINT 

2035 F0RI = 1T0INT(39-LEN<NM<<D)))/2:PR1NT* ’ ; :NEXT 
2040 PRINTCHR$<J8)’ ’NM*<0>‘ ’ 

2045 RETURN 

2100 REM»** ROUTINE CANCELLAZIONE *** 

2105 REM*»* FILE *** 

2110 PRINT:PRINT 

2115 PRINT"NUMERO DEL FILE DA CANCELLARE 0’CHR4(157)CHR4 
(157)CHR$(157); 

2120 INPUTN 

2125 IFN <OORN)XTHEN235: REM ELENCO FILES 
2130 1FN=DTHENCLOSE15:GOTQ10D:REM MENU 
2135 PRINT:PRINT 

2140 PRINT'CONFERMI LA CWCELLAZICNE (S/N) N’CKW(157)CHR» 
(157)CHR$(157); 

2145 INPUTM 

2150 1FW=*N’THEN235:REN ELENCO FILES 
2155 PRINT»15, , S0:’*H«(N) 

2160 X=X-1 

2165 IFN>XTHEN2180 

2170 FOR l=NTOX 

2175 W$(IH*tt<l*l):NEXT 

2160 60T0650: REM SCRIVE INDICE SU DISCO 

2200 REM*** ROUTINE 01 CREAZIONE *** 

2205 REM*** NUOVO FILE *** 

2210 PRINT :PRINT 

2215 PRINT*CONFERMI CREAZIONE FILE (S/N) S’CHR$<157)CHR» 
<157)CHR$(157); 

2220 INPUTW 

2225 IFD»= *N-THENC-LOSE 15 : GOT0100 : REM MENU' 

2230 IFF$=CHR*(134>ANDX<10THENPR1NTCHR$(147) iPRINT :PRINT’ 

’:60T0300:REM 1NS.F1L 
2235 PRINTCHR$(147):F0Rl=lT07:PRlNTiNEXT 
2240 PRWTCKRfdS)’ RAGGIUNTO LIMITE DI GESTIONE DEI FILES ’ 
2245 FQRI=1T05:PRINT:NEXT 

2250 PRINT’ ’CKRÌ(18)’ PER PROSEGUIRE UTILIZZARE ’ 

2255 PRINT.-PRINT 

2260 PRINT" ’CHR1(18)’ UN ALTRO DISCHETTO * 

2265 FOR1=1TO4O0Q:NEXT:CLOSE15:CLR:GOTO1OO:REM MENU' 

2300 REM**» SUBROUTINE VISUAL1ZZ *** 

2305 REN*** QUANTITÀ **» 

2310 PR1NTCHRK147) 

2315 PR1NTY:’ ’KV ’;N*(Y) 

2320 PRINTiPRINT 

2325 PRINT’QUANTITA MAGAZZINO ’;Q(Y) 

2330 PRINT 

2335 PRINT*QUANTITÀ' M1NIN3 ’;QM<Y) 

2340 K<=” 

2345 RETURN 

2400 REM**» SUBROUTINE LETTURA »** 

2405 REM*** FILE DA DISCO *** 

2410 OPET42.8.2, , 0: , *TM$(D)*’.S.R' 

2415 INPUT 1(15.N,MI.T.S:lFNd()THENPRINTCHR$( 147)CHR$( 1B)N;MÌ; 

T;S:CL0SE2: GOTO*A10 
2420 1NPUTII2.NA 

2425 IFF$=CHM< 1 37)THENC=W:NAfNA*25 
2430 OIMNÌ(NA):DINQ(NA):DIMQM(NA) 

2435 FOR 1=1T0NA 

2440 INPUT42.NJ(1),Q<I),BN(I) 

2445 NEXT:CL0SE2 
2450 RETURN 
2500 REM*** 

2505 REM*** 

2510 W=0 

2515 PRINT: INPUT-NUMERO CONFEZIONI 
2520 IFO$=’S’THENW=-U 
2525 PRINTiPRINT’NUOVA QUANTITÀ' 

2530 IF0(Y)*W<QM(Y)+1NT(.2*GN(Y))THENPRlNTCHR$<18); 

2535 PRINTQ(Y)*WCHRI(146) 

2540 PRINT:PRINTSPRINT 

2545 PRINT’CONFERMI (S/N) S*CHRI(I57)CHR4<I57)CHR»(157); 
2550 INPUTJ1 

2555 1F J4=*N’THENCD=0:60T01100 : REM INPUT VERIFICA 
2560 Q<Y)=Q(Y)*UI 
2565 CT=(CT)0R(CD) 

2570 GOTOlOOOiPEM RIC.ART. 

(continua) 
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SinCLAIR QL pronta consegna 

chiedere prezzo interessantissimo 

zx spectrum 

Disponibili tutte le parti di ricambio (ULA - ROtTÌ - ZTX 
213/313 quarzi - parti della tastiera - ecc ) richiedeteci Usta 
con prezzi 

Registratore per dati Inno-Hit L 74 000 
Registratore per VIC 20 e CBm 64 l 75 000 
Interfaccia per Joystick programmabile L 78 000 
Joystick Crackshot L 15 000 

Tastiera Kempston predisposta per microdrivecon barra 

spazio e tre programmi in omaggio L 170 000 

Stampante Al phacom L 230 000 

Di gital Tracer L 150 000 

Espansion e a 48 K per versione 2 e 3 L 78 000 

■Spectrum 16K. e 48 K - Interfaccia I e microdrive - 

richiedete prezzi 


Floppy disk (scatola da IO) tutti con anello di rinforzo 

TIPO nashua rfìemorex 3m-Scotch 

SF-SD 40 000 50 000 55 000 

DF-DD 58 000 68 000 68 000 

Kit 3IT1 per la pulizia delle testine del vostro drive L 55 000 


appiè e compatibili 

Tastiera professionale 90 tasti ♦ 50 co mandi basic *12 

tasti funzione * IO tasti definibillda vol Lire 298 000 
Tavoletta grafica c ompleta di software L 235 000 
Tako - un click e potrete usare l'altra faccia del vostro dischetto 
aL 25 000 

Disk Drive siim L 450 000 
Do ppio controller L 100 000 
Language card 16 K L IlOOOO 
Z-80 p er CP/m L 118 000 
BO colonne con soft switch L 220 000 
Super Serial Card L 170 000 

Programmatore di EPROTTì (2716-2732-2764) L 120 000 
Scheda Pai Color con suono 95 000 
128 K RAID L 380 000 

Wild Cord per Apple 11 plus e compatibili (per copiare tutti 1 
programmi) L 90 000 

Replay: la piu' potente scheda per copia per Apple 11 plus e 

compatibili L 158 000 

Joystick autocentranti L 42 000 

manrroR 

monitor 12” fosfori verdi antlrlflesso L 220 000 
monitor 12" fosfori gialli antlrlflesso L 240 000 
monitor a colori ingresso PAL e audio L 538 000 

Solo per Apple Ile 

Espansion e 64K * 80 colonne L 220 000 


Vendila per corrispondenza Tutti 1 prezzi indicati 
comprendono l'IVA nessuna spiesa di spiedlzlone per ordini 
superiori alle L 50 000 Prezzi soggetti a variazioni 


VISITATE IL ROSTRO COIDPUTER SHOP PER TROVARE 
TUTTE LE riOVlTA' - GORIZIA - CORSO ITALIA 149- 
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2600 REM*** ROUTINE AMUL LAMENTO *** 

2605 REM*** ARTICOLO *** 

2610 WfW-1 
2615 F0RA=YT0NA 

2620 Nt<A)=N$<A* 1 ) :Q(A)=Q<A* 1 ) :QM(A)=QH<A* 1 ) 

2625 NEXTA 

2630 GOTOIOOO:REM RIC.ART. 

2700 REM*** ROUTINE DI ORDINAMENTO *** 

2705 REM*** ’BUBBLE SORT 1 *** 

2710 PRINTCHRI<147):F0RI-1T08;PRINT;NEXT 

2715 PRINT 1 , CHRT(18)' STO ORDINMDO GLI ELEMENTI 

2720 PRINT SPRINT 

DEL FILE 1 


•CHRW8)* ATTENDI 


2725 PRINT 1 
2730 PRINTSPRINT 
2735 PRINT 1 
2740 FOR1=2TONA 
2745 F ORINATOI STEP-1 
2750 F0RP=1T018 

2755 1 FASC<MIM<1H< J-I ) .P,l)*CHR$(0))>ASC<NIDf<Ni<J),P,J)* 
CHR$(0))THEN2770 

2760 IFASC<M1M<NT< J-l),P,1)*CHR4<0)) OASC<M1M<NI< J),P,D* 
CHR$<0))TH785 
2765 NEXTP 

2770 Hi=N$<J-l):R=0<J-l)ilW=QM<J-l) 

2775 N$<J-l)4H<J):Q<M)=Q(J)iQH<J-I)*QM<J) 

2780 NKJ)=H$:Q<J)=H:QN(J)=IH 
2785 NEXTJ 
2790 NEXTJ 

2795 GOTO!400:REM EL.OPZIONI 
2800 REM*** FINE LAVORO »** 

2805 PR1NTCHR$<147):F0Rl r lTG10:PRINT :NEXT 

2810 PRINT 1 •CHR$<18)* FINE LAVORO BYE' * 

2815 F ORI=1T09:PR1HT sNEXT:CL OSE15 : END 
READY. 


gemo indicati come presenti sul di¬ 
schetto inserito nel drive. Se non vi 
sono file memorizzati l’elenco risul¬ 
terà vuoto e l’unica scelta possibile, 
lo zero, vi riporterà al MENÙ fun¬ 
zioni. Una volta scelto uno dei file, 
questo verrà caricato dal disco e 
quindi apparirà l’ELENCO OP¬ 
ZIONI; questo permette di interve¬ 
nire nei file come segue: 

1) aggiornamento - la ricerca del¬ 
l’articolo può avvenire in modo se¬ 
quenziale (premendo ENTER), op¬ 
pure con il nome o la sua parte ini¬ 
ziale, oppure con il numero di posi¬ 
zione nell’elenco. Una volta indivi¬ 
duato l’articolo è possibile MODI¬ 
FICARLO (S/N), ANNULLAR¬ 
LO (A) per toglierlo dall’elenco, 
oppure FINIRE (F) per dar luogo a 
un’altra ricerca. Inserendo la parola 
FINE al posto del nome dell’artico¬ 
lo si torna all’ELENCO OPZIONI. 
Rispondendo SI alla MODIFICA 
viene chiesto se si intende effettuare 
un carico o uno scarico e qual è la 
relativa quantità da movimentare. 
La quantità risultante viene indicata 
in reverse, se inferiore a 1.20 
Q.Min. Viene infine chiesta confer¬ 
ma per l’esecuzione; rispondendo 
NO, tutti i dati inseriti vengono 
ignorati e viene nuovamente richie¬ 
sto il tipo di modifica desiderato 

(S/N/A/F) . 

2) visualizzazione situazione e 3) 
stampa situazione — sono le due 
funzioni più "sceniche” in quanto vi¬ 
sualizzano tutti gli articoli presenti 
nel file sul video o sulla stampante. 
Utilizzando la visualizzazione appa¬ 
iono a video dieci articoli alla volta. 
Premendo RETURN si visualizza¬ 
no i successivi, mentre, premendo F 
(fine), si torna all’ELENCO OP¬ 
ZIONI. 

4) fine lavoro — si utilizza questa 
opzione per ritornare al menù fun¬ 
zioni. Se il file è stato modificato 
(articoli cancellati o carichi/scari¬ 
chi) viene eseguita una memorizza¬ 
zione del file aggiornato. 

F2) ESPANSIONE FILE ESI¬ 
STENTE. Con questa funzione è 
possibile aggiungere altri articoli ai 
file presenti nell’indice. Ogni volta 
che questa funzione viene richiama¬ 
ta, si possono aggiungere al massi¬ 
mo 25 articoli. Una volta premuto 
F2) si sceglierà il file da espandere e 
si aggiungeranno gli articoli e le re¬ 
lative quantità con le stesse modali¬ 
tà della funzione CREAZIONE FI- 


LES. 

F3) CREAZIONE FILES. Permet¬ 
te di creare, uno alla volta, i 10 files 
possibili. Ogni volta che si entra in 
questa funzione viene visualizzato a 
video l’ELENCO FILES già inseri¬ 
ti, in modo da evitare duplicazione 
di nomi o nomi che possano indurre 
errori. In ogni caso non viene accet¬ 
tato il nome di un file già presente. 
Anche il nome nullo (""), ovviamen¬ 
te, non viene accettato. Vengono 
poi richiesti il nome del primo arti¬ 
colo (composto da non più di 17 ca¬ 
ratteri), la quantità minima della 
giacenza e la quantità effettiva. 
Questo ultimo dato può essere 
omesso e inserito successivamente 
con FI) più 1) AGGIORNAMEN¬ 
TO. Nome e quantità minima pos¬ 
sono essere modificati, ma con una 
procedura più lunga: con FI), 1) 
AGGIORNAMENTO si elimina 
dapprima l’articolo dal file, quindi 
con F2) si reinserisce l’articolo cor¬ 
retto. Una volta inserito l’ultimo ar¬ 
ticolo basterà digitare la parola FI¬ 
NE al posto del nome articolo per 
tornare all'ELENCO OPZIONI 
(descritto in FI). Con 4) FINE LA¬ 
VORO il vostro file viene ordinato 
alfabeticamente con il "BUBBLE 
SORT" e quindi memorizzato sul di¬ 
schetto. Utilizzando invece le altre 
opzioni è possibile sistemare gli er¬ 
rori di inserimento prima di proce¬ 


dere alla memorizzazione con FINE 
LAVORO. Le modalità d’uso delle 
opzioni sono le stesse descritte per 
FI). Va ricordato che si possono in¬ 
serire con F3) 100 articoli al massi¬ 
mo: dovendone inserire più di 100 si 
dovrà usare F2). 

F4) CANCELLAZIONE FILE. 
Permette di cancellare un file che 
non interessa più, togliendone nel 
contempo il nome dall’indice. Vie¬ 
ne visualizzato sul video l’ELENCO 
FILES: si dovrà rispondere alla ri¬ 
chiesta del file da cancellare digitan¬ 
do il numero che il file occupa nel¬ 
l’elenco. Il programma richiede poi 
un'ulteriore conferma alla cancella¬ 
zione: se si risponde SI, la cancella¬ 
zione viene eseguita, mentre con 
NO si torna al MENÙ FUNZIONI. 
F7) FINE LAVORO. Chiude il la¬ 
voro con GESMAG, che, però, è 
ancora residente in memoria e può 
essere rilanciato con RUN. 

Un'ultima cosa... 


L’inserimento dell’ora viene ri¬ 
chiesto una sola volta dopo il RUN 
del programma, e viene indicata 
nella testata della lista quando si ri¬ 
chiedono le funzioni di visualizza¬ 
zione e stampa magazzino; la data, 
invece, viene richiesta e quindi vi¬ 
sualizzata solo in fase di stampa. 

P. Carniel 
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UTILITY 


Bello il tasto di reset per il 
Commodore pubblicato in gennaio, 
vero? Peccato che sia utilizzabilesolo 
da chi usa il linguaggio macchina... O 
no? Pergli amanti del Basic, per chi 
copia i listati dalle riviste, arriva 
CÓMMODORESCUE, per resettare 
davvero... 


Se ti sei 
perso 

idata 


Listato del programma 

10 REM COtlODORESCUE 
20 REM RESCIJE = SYS 53221 
30 REM 

40 FOR D = 53183 70 53247:READ N: POKE D,N: NEX7 
50 SYS 53183 : NEW 

60 DATA 120,149,204,141,20,3,169,207,141,21 
70 DATA 3,88,96,173,1,8,141,252,207,173,2,8 
80 DATA 141,253,207,145,45,141,254,207,165 
90 DATA 46,141,255,207,76,49,234,173,252 
100 DATA 207,141,1,8,173,253,207,141,2,8,173 
110 DATA 254,207,133,45,173,255,207,133,46 
120 DATA 94,0,0,0,0 


S uccede a volte, dopo aver digita¬ 
to lunghi programmi, di non re¬ 
sistere alla tentazione di farli girare 
senza averli preventivamente salva¬ 
ti su supporto magnetico. Ed ecco 
che succede Tirreparabile: il pro¬ 
gramma va in loop infinito e non si 
riesce a fermarlo nemmeno con il 
STOP/RESTORE. C era un picco¬ 
lo errore nei data che. vuoi per pre¬ 
sunzione, vuoi per impazienza, non 
sono stati ricontrollati. 

Non resta che resettare con il no¬ 
stro nuovo tasto, ma così facendo si 
scopre che il programma non è più 
listabile. 

In realtà il lavoro è ancora pre¬ 
sente nella memoria del computer; 
ma come ripescarlo? La soluzione 
viene da COMMODORESCUE, 
un programma di utility che verrà 
molto apprezzato da coloro che 
hanno realizzato il facile ed econo¬ 
mico progetto per la costruzione di 
un tasto di reset da applicare alla 
porta seriale del computer, pubbli¬ 
cato su RE&C di gennaio. 

Il programma COMMODORE¬ 
SCUE ne è infatti la logica conse¬ 
guenza software. 

Non sono molti coloro che scrivo¬ 
no programmi in linguaggio macchi¬ 
na e che possono sfruttare appieno il 
reset per poi ripartire con un norma¬ 


Figura 1 - Dissemblato della routine 
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8D 
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A5 
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8D 

FF 

CF 
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- 

8D 
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08 
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$0802 
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FE 

CC 
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CFF4 

- 

85 
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$2D 
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- 

AD 

FF 

CF 
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CFF9 

- 

85 
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STA 

$2E 
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- 

60 
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00 



BRK 


CFFD 

- 

00 



BRK 


CFFE 

- 

00 



BRK 


CFFF 

- 

00 



BRK 



le SYS: la maggior parte delle per¬ 
sone è solita programmare in basic 
usufruendo magari di piccole routi¬ 
ne in linguaggio macchina trovate 
qua e là sulle riviste del settore. 


COMMODORESCUE aiuta a pro¬ 
teggere anche il più affrettato rico¬ 
piatore di listati. 

Come funziona 


In pratica viene manipolata la 
routine di intcrrupt del sistema, ob¬ 
bligandola a passare per una nostra 
routine che memorizza in continua¬ 
zione i puntatori di inizio e fine pro¬ 
gramma. Non è necessario dilungar¬ 
ci nella descrizione particolareggia¬ 
ta delle routine utilizzate: i più 
esperti potranno consultare il disas¬ 
semblato in Figura I. 

Più interessante è invece qui il 
collaudo del programma: dopo aver 
dato il RUN,COMMODORE¬ 
SCUE si autodistrugge rimanendo 
attivato. Digitate ora due righe tipo: 

1 REM PROVA 

2 TEST O.K. 

e provate a mandare in tilt il compu¬ 
ter con un SYS 5; resettate, di segui¬ 
to, premendo il “magico” tasto. 
Scrivete ora SYS 5322 1 
( +RETURN) e listate: il program¬ 
ma è ricomparso dal limbo. Per riat¬ 
tivare COMMODORESCUE non 
resta che fare SYS 53183. Un’ultima 
avvertenza: attenti a non sbagliare 
proprio i data di questo programma! 

Alberto Polano 
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ZX 81 e Spectrum 

Progetti 


Interfaccialo da te 


Per gli appassionati di 
elettronica il computerò 
una tonte inesauribile di 
piaceri; già 
comprenderne il 
funzionamento e 
impararne il linguaggio 
è un'avventura che non 
finisce di stupire, se poi 
diventa possibile 
metterci addirittura 
le mani... 


i li I : r r r • 


C he ZX 81 e Spectrum siano stru¬ 
menti potenti, si sa: centinaia di 
pacchetti applicativi, periferiche di 
ogni genere e mille esperimenti di 
personalizzazione l’hanno ormai di¬ 
mostrato. Se poi li si fornisce di una 
giusta interfaccia, mettendoli in gra¬ 
do di colloquiare con dispositivi 
esterni, la loro utilità aumenta... 
Scopo di questo progetto è riuscire a 
inviare e ricevere segnali da e verso 
il computer; per riuscirci, serve una 
porta input/output, che consiste di 
uno o più circuiti integrati che po¬ 
tranno immagazzinare dati e ren¬ 
derli disponibili per un dispositivo 
esterno. La quantità massima di dati 
immagazzinabili sono otto numeri 
binari (bits) e l'informazione è di¬ 
sponibile su otto punti (pins), ognu¬ 
no dei quali può avere + 5 o 0 volts 
(V). 

Le porte input/output di solito so¬ 
no separate, cosicché il dato emesso 
dalla porta OUT non è considerato 
durante la lettura della porta IN. 
Per riconoscere se l’operazione in 
corso sia di lettura (INPUT) o di 
scrittura (OUTPUT), il computer 
emette due segnali: NOT WRITE 
(wr) e NOT READ (rd); il fatto che 
questi segnali siano 0 volts abilita 
l'operazione rispettiva. Il dispositi¬ 
vo esterno richiede inoltre uno spa¬ 


zio nel quale i dati vengano raccolti 
e spediti: viene chiamato AD- 
DRESS (indirizzo) e si riferisce 
esclusivamente alla porta input/out¬ 
put e a nessun’altra parte connessa 
al computer. Quando il computer 
vuole parlare alla porta manda il nu¬ 
mero che rappresenta l’indirizzo di 
destinazione attraverso i 16 fili di 
uscita (AO, Al, A2, ... A15). 

ZX 81 e Spectrum non possono 
però disporre di una porta per l’u¬ 
tente: deve essere aggiunta esterna¬ 
mente. Un tipo di porta, chiamato 
MEMORY MAPPED, viene consi¬ 
derate come una porta di RAM 
(Random Access Memory), cioè 
può essere letta (con l'istruzione 
PEEK di trasferimento, dalla porta 
al programma) o può essere “scrit¬ 
ta" (con l’istruzione POKE di tra¬ 
sferimento del programma alla por¬ 
ta). Le istruzioni PEEK e POKE e 
le altre istruzioni BASIC possono 
essere inserite in un programma nel¬ 
la seguente forma: 

PEEK 16396 
POKE 16396,255 

PEEK riporta un numero com¬ 
preso tra 0 e 255 (il numero massimo 
di combinazioni ottenibili da 8 bits), 
che si trova alla locazione di memo¬ 
ria indicata dal numero che segue la 
parola PEEK. POKE scrive un nu¬ 
mero nella memoria. Il primo nu¬ 
mero dopo la parola POKE rappre¬ 
senta la locazione di memoria, il nu¬ 
mero dopo la virgola è il numero 
(compreso tra 0 e 255) che verrà 
scritto in quella locazione di memo¬ 
ria. Non ha importanza quale meto¬ 
do usiate, potete solo scrivere un 
numero compreso tra 0 e 255: il più 
grande numero decimale che può 
essere rappresentato con 8 bits è in¬ 
fatti 255 (Figura I). 


Valore 

decimale 

2 7 

2 6 

2 5 

2 4 

2 3 

2 2 

2 1 

2° 

Numero 

binario 

1 

0 

1 

0 

1 

0 

0 

1 


Posizione 
del bit 

Bit 7 

Bit 6 

Bit 5 

Bit 4 

Bit 3 

Bit 2 

Bit 1 

Bit 0 

Figura 1 : Rappresentazione di un numero a 8 bit. Il sistema binario viene 
usato per rappresentare il valore di ogni posizione del bit. 
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Codice binario 
e valori decimali 

Questo sistema di numerazione 
usa solo le cifre 0 e 1. Un uno nella 
"Bit position” significa che quella 
posizione ha il v alore decimale scrit¬ 
to sopra la casella di quel bit; uno 
zero in una “bit position” significa 
un valore decimale 0. 11 valore deci¬ 
male totale del numero è semplice- 
mente la somma di tutti i valori deci¬ 
mali delle posizioni dei bit, ognuna 
delle quali rappresenta una potenza 
di due. Il numero del bit indica il 
numero delle volte che la cifra due 
deve essere moltiplicata per se stes¬ 
sa (nel sistema decimale) se nella 
casella c’è il valore 1. Il bit 3 (Figura 
1) rappresenta 2 moltiplicato per se 
stesso 3 volte, ossia 2x2x2 (o due al 
cubo). Dato che quella posizione è 
occupata dall’ 1 binario, l’I rappre¬ 
senta 2 3 = 8 nel sistema decimale 
(che è il sistema usato nell’aritmeti- 
cadi tutti i giorni). Calcoliamo ora il 
valore decimale dell'intero numero 
a 8-bit. 

Bit 7 = 2 7 (contiene 1 binario) = 128 
Bit 6 = 2 h (contiene 0 binario) = 0 
Bit 5 = 2 5 (contiene 1 binario) = 32 
Bit 4 = 4 5 (contiene 0 binario) = 0 
Bit 3 = 2 3 (contiene 1 binario) = 8 

Bit 2 = 2 : (contiene 0 binario) = 0 

Bit 1 = 2 1 (contiene U binario) = 0 

Bit 0 = 2° (contiene 0 binario) =_^ 

10101001 (binario) = 169 
(decimai) 

L’ultimo 1 è un piccolo trucco: 
rappresenta infatti 2 moltiplicato 
per se stesso 0 volte e in matematica 
viene definito con 1, come qualsiasi 
numero elevato alla potenza 0. Allo 


scopo di convertire un numero bina¬ 
rio in un numero decimale si deve 
ricordare che il bit 0=2°= 1 (non 
2x0=0). 

Anche convertire un numero de¬ 
cimale in un numero binario richie¬ 
de un procedimento semplice; per 
convertire per esempio il numero 
169 (decimale) nel corrispondente 
numero binario a 8-bit si procede 
dividento il numero e ognuno dei 
successivi quozienti per 2: il resto di 
ogni divisione è il numero binario 
che va iti ciascuna locazione a parti¬ 
re dal bit 0. 

169:2 = 84 RI 1 (bit 0) 

84:2 = 42 R0 0 (bit 1) 

42:2 = 21 R0 0 (bit 2) 

21:2 = 10 RI 1 (bit 3) 

10:2 = 5 R0 0 (bit 4) 

5:2 = 2 RI 1 (bit 5) 

2:2 =1 R0 0 (bit 6) 

1:2 = 0 RII (bit 7) 

Quando il quoziente è 0 il procedi¬ 
mento ha termine; da notare che il 
risultato 10101001 è lo stesso dcll'e- 
sempio precedente. 

Un altro esempio: la conversione 
di 28 (decimale) in un numero bina¬ 
rio a 8 bit. 

28:2 = 14 R0 0 (bit 0) 


14:2 = 7 R0 0 (bit 1) 

7:2 = 3 RI 1 (bit 2) 

3:2 = 1 RI 1 (bit 3) 

1:2 = 0 RI 1 (bit 4) 

A questo punto il procedimento si 
ferma, cosicché ai bits 5, 6 e 7 verrà 
assegnato il valore 0. 

28 (decimale) = 00011100 (binario) 
Posteriormente lo ZX81 e lo 
Spectrum hanno un connettore a 23 
contatti che è collegato a ognuna 
delle linee del microprocessore 
Z80. Guardando da dietro, vedia¬ 
mo che nello ZX81 il connettore è 
situato a sinistra e, nello Spectrum, 
la posizione è la stessa, ma una pic¬ 
cola copertura protegge la parte. 
Guardando il connettore i contatti si 
presentano come nella Figura 2. 

Come realizzare 
un connettore 

Allo scopo di accedere diretta- 
mente al connettore per realizzare i 
progetti o per realizzare estensioni 
verso le interfacce (per esempio, 
una stampante o un modulo di 
espansione RAM), è necessario co¬ 
struire un connettore femmina che 
si adatti al connettore maschio del 
computer. Anche se un connettore 
23-pin può essere acquistato da ri¬ 
venditori specializzati Sinclair, si 
possono anche usare connettori 
standard da 25-pin. Nella Figura 3 è 
riprodotto un connettore femmina 
di plastica da 25-pin. I pin 1 e 25 
possono essere tolti usando un se¬ 
ghetto. I due pin nella nuova posi¬ 
zione 3 possono essere estratti usan¬ 
do una pinza lunga. Quindi si può 
forzare una fibra di plastica nello 
spazio rimasto, in modo tale da po¬ 
tersi infilare nella corrispondente 
fessura del connettore femmina. Un 
“fiat cable” a 50 conduttori della 
lunghezza adatta potrà essere quin¬ 
di saldato ai terminali del connet¬ 
tore. 


- / -- Rimuovere i contatti —\ 

F,Rura 3 / e tagliare qui \ 

/ \ 
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Sostituire i contatti 

con materiale in fibra plastica ' emanale 
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Vorrei sapere, vorrei proporre. •• 


1080 1FX>255THENZ=1N7a/254):Y=X-<2*254) 

1480 A=I :B=0 :IFI)255THENB=INT(1/256):A=I-(0*256) 
3790 A=X:B=0:1FA)255THENB=1MT(A/254):A=A-(B*254> 
4415 A=C:B=0:IFC)255THENB=INT(C/254):A=C-B*254 
4440 A=D:8=0:IFD)255THENB=lNT(D/254):A=D-B*254 
4440 A=G:B=0:1FG)255THENB=M(G/254):A=G-B*254 
4480 A=H:B=0:1FH)255THENB=INTCH/254):A=H-B*254 
4700 A=J:B=0:IFI)255THENB=INT(1/254):A=1-B*254 
7910 ìFK)2557HENB=1NT(K/254):A=K-(B*254> 

7920 IFK<=255THENB=0:A=K 


Interfaccia 

RS232 

Su R. E. & C. di Aprile '84 
a pag. 46 trovo il progetto di 
una interfaccia RS232 per 
CRM 64. Nello schema elet¬ 
trico noto 6 collegamenti in 
entrata dal computer 
(M,2,C-B,10,11,N) e solo 
due in uscita (2,3). Non sono 
necessari altri collegamenti? 
Come posso adattare alla 
penna ottica il fotodiodo 
BPW34? Sul numero di 
Gennaio '85 a pag. 75 un let¬ 
tore parla della trasmissione 
della RAI Radiotext. Quan¬ 
do trasmette? E su quali fre¬ 
quenze? 

Roberto Maugeri 

Catania 

I collegamenti necessari 
per il funzionamento dell'in¬ 
terfaccia RS232 sono quelli 
relativi al segnale in entrata 
e in uscita dal computer e la 
massa. I sei collegamenti 
che escono dal computer per 
l’interfaccia RS232 servono 
sia per il trasferimento dei 
dati sia per il funzionamento 
dell’interfaccia stessa, come 
è spiegato nel corso dell'ar¬ 
ticolo. In uscita troviamo la 
massa, che va collegata al 
piedino 7 della spina CA¬ 
NON—25, e l’uscita e l’in¬ 
gresso dei segnali che vanno 
collegati rispettivamente al 
piedino 3 e 2 della stessa spi¬ 
na. In linea di massima un 
fotodiodo può essere utiliz¬ 
zato per la penna ottica, ri¬ 
spettando ovviamente la po¬ 
larità dei collegamenti come 
indicato in figura 1 a pag. 20 
del numero di Dicembre 
'84. Nel caso sorga qualche 
problema, occorre aumen¬ 
tare o diminuire la resisten¬ 
za RI da 220 Kohm. 

Per avere informazioni 
sulle trasmissioni RAI per 
computer, puoi rivolgerti al¬ 
la sede RAI della tua città. 

Col circuito 
e l'integrato 

Sono un assiduo lettore 
della Vostra rivista, che tro¬ 
vo sempre più interessante. 
Poiché sono un principiante 


in elettronica, gradirei venire 
a conoscenza dei modi per 
disegnare i circuiti stampati 
oltre alla penna al feltro e ai 
trasferibili. Inoltre vorrei sa¬ 
pere se l'integrato LM555 è 
equivalente a tutti quelli la 
cui sigla termina con 555. 

Nicola Pistilli 
Potenza 

La risposta alla seconda 
domanda è affermativa. La 
parte più importante della si¬ 
gla di un integrato è il nume¬ 
ro, mentre la sigla che lo pre¬ 
cede dipende dalla casa co¬ 
struttrice. La risposta al pri¬ 
mo quesito la trovi nella let¬ 
tera che segue. 

Kit per circuiti 
stampati 

Sono un principiante e, 
avendo letto in un numero di 
Radio E LETI' RON1C A 
& COMPUTER di un meto¬ 
do fotochimico per l'incisio¬ 
ne dei circuiti stampati, vor¬ 
rei aneli io usarlo per realiz¬ 
zare i suddetti circuiti. Quali 
sono gli strumenti da usare e 
come si deve procedere per 
realizzare questi circuiti? 

Marco De Santi 

Castelfranco Veneto(Tv) 

Tutti i più importanti ri¬ 
venditori di materiale elet¬ 
tronico e anche chi vende 
materiale per corrisponden¬ 
za offrono dei kit contenenti 
tutto il necessario e le relati¬ 
ve istruzioni per la prepara¬ 
zione dei circuiti stampati 
con il metodo della fotoinci¬ 
sione. A grandi linee occor¬ 
re il seguente materiale, 
simboli elettronici trasferi¬ 
bili tipo Mecanorma, piastre 
ramate a singola o doppia 
faccia per circuiti stampati, 
liquido spray fotosensibile 
per preparare le piastre, 
lampade UV per l’esposizio¬ 
ne (da 3500-3800 Amstrong, 
costo indicativo 100.000 li¬ 
re), bacinella di plastica per 
acidi, acidi corrosivi per 
sciogliere il rame non pro¬ 
tetto dal disegno del circuito 
elettrico. Uno dei più diffusi 
kit è prodotto dalla ditta 
Corbetta ed è contraddistin¬ 


to dalla sigla CS66 ed è di¬ 
stribuito dalla ditta Franchi, 
via Padova 72, Milano (tele¬ 
fono 02/2894967), che accet¬ 
ta ordini anche per posta. 
Costa 24.500 lire. 

A tempo 
di computer 

Sono un ragazzo di 15 an¬ 
ni e mi piace molto leggere 
R.E.& C., che da anni è la 
mia rivista preferita. Nel mio 
Commodore 64 ho battuto il 
programma A TEMPO 1)1 
COMPETER apparso su 
R E & C. di Febbraio '84 
(pag. 14), ma appena dato il 
RUN, sul monitor è apparsa 
la scritta ?S1NTAX ERROR 
IN IO. Battendo il LIST ho 
controllato attentamente la 
riga 10 (10 GRAPUIC2) ma 
non vi trovo imperfezioni. 
Forse quel programma è ido¬ 
neo per il VIC 20? 

Luca Belfiore 
Roma 

Il programma in questio¬ 
ne, così come è stato scritto, 
funziona solo sul VIC 20 con 
espansione grafica di 3K, 
come spiegato a pag. 14 del¬ 
la rivista. Affinché possa gi¬ 
rare su C64 è necessario so¬ 
stituire tutti i comandi rela¬ 
tivi alla VIC GRAPHIC 
adattandoli ai comandi del 
SIMON BASIC. 


Un chiarimento? 

Un problema? Un'idea? 
Scriveteci. 

GII esperti di 
RadloELETTRONICA 
sono a vostra 
disposizione per 
qualunque quesito. 
Indirizzate a 
RadioELETTRONICA 
LETTERE 
Corso Monforte 39 
20122 Milano. 


Gestione 

biblioteca 

In Gennaio vi ho spedito 
un disco contenente due li¬ 
stati relativi ai programmi 
CREA e ARCH1V da voi 
pubblicati sul numero di 
Marzo 85. Purtroppo devo 
comunicarvi la correzione di 
alcune righe del listato di 
ARCHIV. Durante un cari¬ 
camento, mi sono accorto 
che al 256esimo volume le 
cose non andavano bene. Ho 
controllato il risultalo più 
volte confrontandolo con le 
istruzioni riportate sul ma¬ 
nuale d'uso del VIC 1541 in 
italiano, ma senza risultato 
perché anch'esse risultano 
errate. Infatti a pag. 41 di 
detto manuale è riportato un 
programma dimostrativo di 
lettura-scrittura di una lista 
di spedizione. La riga 70 di 
tale programma riporta lo 
stesso errore da me combina¬ 
to nel mio programma. Spe¬ 
ro con ciò di essermi parzial¬ 
mente discolpato e vi riporto 
qui sopra il listato corretto. 

Scambio 
di righe 

Hó 'ricevuto il numero di 
Febbraio e, scorrendo velo¬ 
cemente le pagine, mi sono 
accorto che c è un errore nel¬ 
la tabella in basso a destra di 
pag. 13. Probabilmente sono 
state scambiate l'ultima e la 
penultima riga della colonna 
centrale (uscite abilitate). Ve 
lo segnalo affinché la Vs. Re¬ 
dazione provveda a control¬ 
lare. 

Massimo Buscaglionc 
Torino 

Effettivamente è stato com¬ 
messo un errore, in fase di 
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Uscite abilitate 

Ingressi abilitati 

POKE 37138 15 

OUT 1-0UT 2-0UT 3-0UT 4 

INI-IN2-IN3-IN4 

POKE 37138 31 

OUT 1-0UT 2-0UT 3-0UT 4-0UT 5 

INI-IN2-IN3 

POKE 37138 47 

OUT 1-0UT 2-0UT 3-0UT 4-0UT 6 

INI-IN2-IN4 

POKE 37138 63 

OUT 1-0UT 2-0UT 3-0UT 4-0UT 5-0UT 6 

IN1-IN2 


montaggio, nella colonna 
centrale della tabella, che ri¬ 
portiamo qui sopra, corret¬ 
ta, scusandoci con i lettori. 

Espansione 
di memoria 

Ho ordinato e ricevuto il 
KIT (REK 41/07) per l'e¬ 
spansione di memoria da 8K 
per il VIC 20. Nel pacco pe¬ 
rò, mancavano, oltre allo 
schema, anche tre integrati 
su quattro. 

Giuseppe Martinelli 
Udine 

Il Kit in questione com¬ 
prende solo un integrato di 
gestione della memoria stes¬ 
sa, mentre per gli integrati 
di memoria (RAM 6116) ri¬ 
mandiamo il lettore al nu¬ 
mero di Febbraio, alla pagi¬ 
na delle lettere nella quale 
diamo spiegazione di come 
sono composti i KIT di 
espansione di memoria per 
VIC 20. 

Gratis 

il data base 

Sono un vostro lettore è vi 
sottopongo il seguente pro¬ 
blema: ho comprato il n. I di 
Gennaio dove veniva offerta 
gratis la cassetta IL DATA 
BASE. Purtroppo non mi è 
stato possibile caricarlo in 
memoria sul mio Commo¬ 
dore M Precisamente dopo 
aver caricato il programma, 
segnala 7LOAD ERROR. 
Digitando RUN: ? SINTAX 
ERROR in 32840 Per il gio¬ 
co FOUND (caratteri grafi¬ 
ci indefiniti), OUT OF ME¬ 
MORY ERROR Tengo a 
precisare che tutte le cassette 
in mio possesso funzionano 
regolarmente. 

Primo Viglione 
BRA (CN) 


Nella cassetta offerta gra¬ 
tis con il n.di Gennaio c’era 
registrato da un lato il pro¬ 
gramma DATA BASE per 
Spectrum, dall’altro lato lo 
stesso programma per Com¬ 
modore 64 e un gioco per 
VIC 20 come chiaramente 


spiegato nell’editoriale della 
rivista stessa. I problemi la¬ 
mentati nel caricamento del 
DATA BASE sono dovuti 
alla testina non bene allinea¬ 
ta del registratore come da 
noi spiegato in un articolo 
sul n. 2 (Febbraio 85) di 


R.E.& C. a pag. 9 al quale ti 
rimandiamo per risolvere i 
tuoi problemi 

Errata corrige 

Nella tabella dei "SUONI 
OTTENIBILI" relativa al 
programma "SINTETIZ¬ 
ZATORE MUSICALE" 
per COMMODORE 64 
pubblicata a pag. 30 del nu¬ 
mero di Marzo ’85 è stato 
commesso un errore e preci¬ 
samente nella colonna di de¬ 
stra del Sintetizzatore 3 il n. 
37 va corretto in 33. 


Corri all'edicola 
e impara il golf 

Compra Applicando: c'è un programma 
per diventare campioni. 




La rivista 
peri 

computer 

Apple. 


Se sei già bravo puoi esercitarti per diventarlo ancora di 
più: giocando contro il computer. Se invece golf non 
sai nemmeno cosa sia, puoi partire da zero. Ma con un 
compagno paziente e comprensivo: il tuo Apple//. Il golf 
è un gioco intelligente, sofisticato e divertente: vai la pena 
di dedicargli del tempo. Ma se del 
golf non t’importa 
molto, e il 
tempo vuoi 

dedicarlo solo __ 

al tuo lavoro e al tuo computer, ecco una ragione di piu per 
correre all'edicola e comprare Applicando: è l'unico mensile 
interamente dedicato ai computer Apple e a tutto ciò che 
un computer Apple può fare per te, per il tuo lavoro e per il 

tuo tempo libero E se un computer Apple ancora non ce l'hai? 
Presto, corri lo stesso all'edicola: tanto per cominciare, 


compra Applicando.. 


lévou 
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Vendo, Compro, Cerco, Scambio. •• 


• VENDO, scambio ottime tra¬ 
duzioni in italiano, migliori tra¬ 
duzioni di manuali per piu fa¬ 
mosi programmi per Spectrum 
Chiedere c/o mandare lista. 
D'Orazi Mauro, C.P. 24-41012 
Carpi (MO). 

• VENDO per Commodore 64 
programmi su cassetta (circa 
200) ad un massimo di L. 2.500 
l'uno. Romani Marco. Via G 
Valli 95 - 00149 Roma. Tel 
06/5265121. 

• VENDO Vie 20 + rcg. orig. 
Commodore + exp 3/16K + 
joystick + 8 riv. RE&C + sere 
riv. Commodore, e comm. 
comp. club + 21 num. Paper 
soft + altri (tot. 700progr.) + 3 
libri (mat. Basic) + guida di ri¬ 
ferimento CBM64 + 10 casset¬ 
te 80 progr. Valore commercia¬ 
le L. 750.000. Vendo in blocco 
L. 450.000 + cart. star post. 
Raineri Antonio, Via Mazzini 1 
- 20077 Melegnano (MI). 

• CERCO/scambio programmi 
espansi per Vie 20 esp 3, 8, 16 
K. Cerco super expander usata, 
buono stato, prezzo basso. Rai¬ 
neri Antonio. Via Mazzini 1 - 
20077 Melegnano (MI) 

• VENDO per Vie 20 <32K> o 
C64, fantastico programma ori¬ 
ginale per il totocalcio, con limi¬ 
tazioni, accorpamento e stampa 
con qualsiasi stampante diretta¬ 
mente sulle schedine. L. 10.000 
il listato, I.. 30.000 la cassetta 
registrata. Palopoli Francesco, 
Viale Italia 2 - La Spezia. Tel. 
0187/28577. 

• VENDO listati su carta per il 
Commodore 16-Plus/4-Vic 20. 
Gli interessati possono richie¬ 
derlo a Federici Stefano, Via 
delle Mimose 74 - 04010 Le Ca¬ 
stella allegando alla lettera L 
3.500. 

• SCAMBIO programmi per 
Commodore 64 possibilmente 
su nastro. Cerco utility di ogni 
genere, inviate la vostra lista e 
vi risponderò lanna Alessio. 
Via S Croce 1697/A - Venezia. 

• VENDO per Vie 20 program¬ 
ma per RTTY-CW-ASCII resi¬ 
dente su Eprom personalizzato 
con vostro nominativo coniple- 
todicartridgea L. 45,000. Isetti 
Franco. Via Reggio 5 - Parma 
Tel. 773998. 

• VENDO Vie 2» nuovissimo + 
espansione 16K + cavi, alimen¬ 
tatore. modulatore, libro e cas¬ 
sette programmi vari, solo !.. 
220.000 trattabili. Cedo anche 
separatamente o cambio con 
Commodore C64 conguaglian¬ 
do registratore C2N L. 82.000, 
tester SRE L. 30.000, oscillosco¬ 
pio L. 120.000. Giuffrida Gae¬ 
tano, Via L. da Vinci 6 - 95010 
S. Venerina (CT). 


• VENDO per CBM64 circa 250 
programmi, tra cui circa 100 
utility al prezzo di L. 1.500cad. 
Per richiedere la lista telefona¬ 
re allo 0863/93237 dalle 14.00 
alle 15.00 oppure scrivere. Ca- 
puccini Settimio, Via Firenze 2 
- Trasacco (AQ). 

• CERCO unità dischi 1541 per 
CBM64 max L. 250 mila in buo¬ 
no stato. Cattacin Giorgio, Via 
San Gimignano 8/A - Milano. 
Tel. 4155245 (primo pome¬ 
riggio). 

• VENDO video terminale Oli¬ 
vetti TCV 260con tastiera; cer¬ 
co RX e TX Geloso tutti i tipi e 
parti staccate per detti; cerco 
inoltre bollettini tecnici Geloso 
relativi ad apparecchi per ra¬ 
dioamatori; cerco anche regi¬ 
stratore Geloso G.256 Circolo 
Culturale Laser, Casella Posta¬ 
le 62 - 41049 Sassuolo (MO). 

• VENDO Spectrum 48K. ma¬ 
nuale italiano, 10 manuali vari, 
oltre 200 (duecento) tra giochi e 
utility a L 465.000. Cambio an¬ 
che con oscilloscopio doppia 
traccia in buono stato. Corbelli 
Daniele, Via Benassi 82 - S. 
Lazzaro (BO). Tel 051 480076 

• CERCO programmi (molto 
belli) per ZX Spectrum 16/48 
K Telefonare allo 06/5140677 
ore pasti Panepinto Stefano, 
Via Villa di Lucina 45 - Roma. 

• COMPRO stampante per 
Spectrum o scambio con soft¬ 
ware a scelta più eventuale con¬ 
guaglio. Vendo programmi a 
meno di L. 1.000 cadauno. Ri¬ 
chiedere lista con oltre 400 titoli 
e con novità inglesi. Di Dio Da¬ 
vide. Via Carlo Alberto 46 - 
80045 Pompei (NA). 

• VENDO Spectrum 48K + ZX 
Printer (perfettamente funzio¬ 
nanti) + 200 programmi su cas¬ 
setta e listato + 3 libri sullo 
Spectrum. tutto a L. 450.000. 
Furlan Anacleto, Viale Papa 
Giovanni 35 10 - Conegliano 
(TV). 

• AVETE un CBM64? Se vi in¬ 
teressano giochi come Pit-stop 
2, Summer Games. Ghosthu- 
ster. Karaté ecc. o Utilities co¬ 
me Top professional, Magic 
Desk o ancora, se desiderate 
avere un rapporto più duraturo 
è previsto un abbonamento 
mensile che vi permetterà di ri¬ 
cevere tutte le novità ilei mer¬ 
cato (20 mensili) con invii pe¬ 
riodici ogni 10-15 giorni. Rivol¬ 
getevi a: Grecucci Alessandro, 
Via Veneto 27 - 74100 Taranto. 
Tel. 371055. 

• VENDO per realizzo parecchi 
libri ili elettronica. Inoltre, cen¬ 
tralina profession, luci psiche¬ 
deliche Alpha Elettronica, 3 ca¬ 
nali, 2000W cad. solo L 38.000. 


Posso fornire schemi elettrici di 
qualsiasi TV b/n o color-CB-au- 
toradio, ecc. Papale Antimo, 
Piazza 1 Ottobre 4 - 81055 S 
Maria C.V (CE). 

• VENDO per C64 vari pro¬ 
grammi tra cui. Flight Simula¬ 
tor (con istruzioni in italiano). 
Cale Rcsult (con istruzioni in 
italiano), Paint Magic, Simon s 
Basic (con istruzioni). Carovi- 
gno Roberto, Via Taramelli 70 
- 20124 Milano. l ei. 02/686980. 

• CASSETTA contenente 15 
megagiochi anche a scelta tra 
cui. Togo (8K). Golf, Biliardo. 
Safari, Labirinto 3D, program¬ 
ma per generare musica (8K). 
Tutte le utilityes possibili im¬ 
maginabili dal programma per ì 
caratteri personalizzati alla ge¬ 
stione del conto corrente. Ven¬ 
do inoltre edizione per Vie 20 
del famoso gioco della Mattel 
(Forza 4) e scheda per realizza¬ 
re l’espansione da 8K Guarnie- 
ri Davide, Via Vercelli 10 - 
20010 Bareggio (MI). Tel. 
02/9013975 (ore pasti). 

• VENDO grande cassa acusti¬ 
ca (cm 49 x 70 x 38) con altopar¬ 
lante da 30 watt, ottima per gi¬ 
radischi e strumenti musicali, a 
L. 80.000; altoparlante perchi- 
tqrra a 35 watt, qualità superio¬ 
re, dotato di cassa autocostrui¬ 
ta, a L. 60.000; amplificatore 
per chitarra a pila autocostrui¬ 
to. a L. 70.000; a chi compra 
uno di questi articoli, regalo 
materiale elettronico. Piccolo 
Renato, Via. N Fabrizi 215 - 
65100 Pescara, lei. 085/30300. 

• IL C.l.EL.O (Centro Infor¬ 
mativo Elettronico Operativo) 
è una iniziativa privata (senza 
scopi di lucro e nulla togliere 
alle fonti d'informazioni uffi¬ 
ciali) con lo scopo di porre a 
disposizione degli interessati 
nel campo dell'elettronica ed 
elettrotecnica in generale (in¬ 
formatica compresa) tutto il 
suo supporto didattico non in¬ 
differente (composto da una 
enorme quantità di cataloghi, 
riviste e libri del settore) com¬ 
preso anche le apparecchiatu¬ 
re. gli strumenti e i materiali 
per rendere operativo il centro 
stesso ( una vera e propria mano 
amica che arriva dal CIELO ) Il 
C.l.EL.O. offre la sua assisten¬ 
za a tutti gli interessati di questa 
iniziativa: docenti, istruttori, 
studenti, autodidatti, negozian¬ 
ti del settore, artigiani del ra¬ 
mo. riparatori, operai specializ¬ 
zati. amanti dei compiutcr c 
privati, cercando di risolvere a 
questi il problema della reperi¬ 
bilità deH’informazione evitan¬ 
do loro di dotarsi di un proprio 
sistema informativo. Il C I E¬ 


LO. invita gli interessati a 
prendere contatto con il nume¬ 
ro telefonico 0438/777474, o 
scrivendo al seguente indirizzo; 
C.l.EL.O. c/o Tomasella Mi¬ 
guel Angel, Via S. Tiziano 7 - 
31020 Zoppe di S. Vendemiano 
(TV). 

• HOBBYSTI cedo trasforma¬ 
tori alimentazione per montag¬ 
gi elettronici, varie potenze e 
tensioni, a prezzi di realizzo. 
Riavvolgo anche trasformatori 
bruciati Buglione Goffredo, 
Via P Frisi 8 - 20129 Milano. 
Tel. 02/2046365. 

• VENDO Commodore Vie 20 
+ joystick + alimentatore + 
modulatore + manuali istruzio¬ 
ni 4- 4 cartucce videogiochi -f 4 
nastri videogiochi. L. 250.000. 
Conti Piero, Via Tempio degli 
Arvali 41/D - 00148 Roma. Tel. 
06/52215.36 (ore pasti). 

• ESEGUO ritarature e ripara¬ 
zioni ad apparati RTX in 
V/UHF con strumentazione di 
alta professionalità (Rode 
Swarthz. Marconi. Takeda Ri- 
ken. Hameg. Bird) Si rilascia 
una scheda con le caratteristi¬ 
che tecniche del vostro appara¬ 
to. La prima volta è gratuita. 
Colucci Martino, Via De Pretis 
MI - 74015 Martina Franca 
( FA). Tel. 080/703284 (dopo le 
22 . 00 ). 

• VENDO per Commodore 64 
più di 70 giochi TDA L. 1.500 e 
alcuni tra i più importanti tool 
come il Simon's Basic a 23.000 
Tutti con turbo tape. Per il cata¬ 
logo rivolgersi a Colasanto 
Alessandro, Via Martiri d'Un¬ 
gheria 114 Scafati (SA). 

• PER VIC 20 C16 e C64 vendo 
programma totocalcio per svi¬ 
luppare e ridurre qualsiasi siste¬ 
ma con vari condizionamenti, 
L. 50.000. Realizzo anche su 
specifiche richieste. Capomolla 
Giuseppe, Via 30/b 2 - 98018 
Vili Santo (ME). 

• ATTENZIONE! Posseggo ol¬ 
tre 1000 programmi per C64 tra 
games e Utilities. Compro, ven¬ 
do e cambio. Paladini France¬ 
sco, Via Imbriani 44/1 - 73100 
Lecce. Tel 0832/51447 (dalle 
20.00 alle 22.00) o scrivere. 

• VENDO Commodore Vie 20 
+ registratore C2N + super ex¬ 
pander 3K Ram + cartridge 
gorf -t- cassetta giochi + 2 libri 
(giochi per il Vie, Alla scoperta 
del Vie), il tutto a !.. 350.000 
trattabili. Coste Enrico. Via 
Vernetto 24 - Chianocco (TO). 
Tel 0122/48440 (dopo le 
15.30). 

• VENDO programmi per 
Spectrum 16/48 K.a L. 3.000 48 
K e L 2.000 16 K Inviare ri¬ 
chiesta per la lista. Domanda 
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Queste pagine sono a 
disposizione del lettori 
che desiderano 


corredata di francobollo da L 
500 o equivalente in denaro. 
Capogrosso Alessandro. P.lc 
Leonardo da Vinci 8/11 - Me¬ 
stre (VE). 

•ATTENZIONE, cerco, anche 
materiale usato, ma funzionan¬ 
te. TX TV eh 39± o comunque 
in gamma UHF, potenza limi¬ 
tata 0,5/1 watt oppure solo sta¬ 
dio finale per freq. suddetta 
0,5/1/2 watt. Anche autoco¬ 
struiti ma funzionanti! Rispon¬ 
do a tutti allegando francobol¬ 
lo. Cattaneo Marco, Via Ca¬ 
stello 15 c.p. 13 - 21010 Porto 
Valtravaglia (VA). 

• VENDO M20 4 monitor mo¬ 
nocromatico 4 stampante Oli¬ 
vetti: il tutto a L. 3.500,000. 
Max serietà. No ai perditempo. 
Tratto con centro-nord. Cipol- 
letti Dante. Via Giovanni 
Branca 79 - Roma, lei 
06/5770882 (ore 19.30-21.00). 

• VENDO stampante Sinclair 
32 colonne alta risoluzione, 
stampa cerchi perfettamente 
geometrici a L. 160.000 4 L. 
40.000 per 5 rotoli di carta chi¬ 
mica. Calia Francesco, Via A. 
Paternostro 9 - 90133 Palermo. 
•SVENDO oltre 500 program¬ 
mi per Commodore 64 per pas¬ 
saggio a sistema superiore. Sia 
su disco sia nastro a L. 1.000 
l’uno. Spedizioni in tutta Italia 
Cristiano Antonio, Viale Mo¬ 
ro. trav. Scordino II 31 - 89100 
Reggio Calabria. Tel. 
0965/58383 (dalle 15.30 in poi). 

• VENDO per TI 99/4 A. Penp- 
heral Box 4 disk drive 4 con¬ 
trol disk card 4 modulo SSS 
disck manager Imballi origina¬ 
li, prezzo da concordare. Celin 
Patrizio. Via Giovanni XXIII 
12 - Beinette (CN) 

• VENDO amplificatore per 
basso nuovo, testata -I- cassa a 
L. 400.000. 200 watt Pizzi Mar¬ 
co. Via Castello 4705 - Venezia. 
Tel. 041/21305. 

• VENDO giochi per Commo¬ 
dore C’BM 64. Giochi come Ex- 
terminator, Pole Position, Cal¬ 
cio, Siri, Caveman Juise. Pac 
Man e tantissimi altri. Oppure 
scambio questi giochi con altri 
Guarno Massimo, Via A Paci- 
notti 16 - 80020 Casavatore 
(NA) Tel 081/7571469- 
7386577 (ore serali). 

•CEDO Vie 20 + registratore 
+ 2 cartridge + 2 cassette 4 
joystick in perfetto stato in 
cambio di oscilloscopio usato 
funzionante. Calia Eustachio, 
Quart. Paolo VI 124-74100Ta- 
ranto. Tel 099/421077. 
•SCAMBIO software per ZX 
Spectrum. Dispongo di oltre 
250 titoli Assicuro massima se¬ 
rietà. Mandatemi la vostra lista 


acquistare, vendere, 
scambiare materiale 
elettronico. 

Verranno pubblicati 
soltanto gli annunci che 
cl perverranno scritti a 
macchina o a stampatello 
sull’apposito tagliando 
corredati 

da nome, cognome 
e Indirizzo. 

Gli abbonati sono pregati 
di allegare la fascetta 
con il loro indirizzo 
tratta dall’ultimo numero 
che hanno ricevuto: 

I loro annunci verranno 
evidenziati rispetto 
agli altri. 

RadioElettronica non 
si assume responsabilità 
circa la veridicità e i 
contenuti degli annunci, 
né risponde di eventuali 
danni provocati 
da Involontari 
errori di stampa. 


risponderò con la mia. Ferlisi 
Dino, Viale Scala Greca 351 - 
96100 Siracusa 

• VENDO tastiera a pulsanti da 
sostituire al disco Sip con istru¬ 
zioni L. 18.000. Dalla Torre 
Renzo, Via Trento 31 -Mestre. 
Tel 041/5054955. 

• VIC 2(1 Software Club, scambi 
cartridge, programmi, consigli, 
rispondiamo a tutti. Specificare 
configurazione ed esigenze. Vie 
20 S.C. Ceccarini Alvaro, Via 
Di Vittorio 10 - 58022 Follonica 
(GR). 

• VENDO corso radio valvole e 
trans Elettra 11 voi. rilegati L. 
100.000. Osci11 modulato I 
100.000. Provavalvole L. 
100.000. 40 valvole, trasforma¬ 
tori alim. sec. 40V 2A 6,3V 1A - 
100V 500uA ecc. 2 bobine 
scotch nastro di metallo 27 cm 
0 L 20.000 l’una. Marossa 
Maurisio, V'ia Burlando 22C 4 - 
16137 Genova. Tel. 010/889926 
(ore pasti). 

•CERCO manuale in italiano 
del programma Magic Desk I 
Scrivere per il relativo costo 
Canto Giuseppe, Box 68 - 
96012 Avola (SR) 

• VENDO software per ( 64 1 
più bei giochi a prezzi straccia¬ 
tissimi Zaxxon. Burger Time. 
Donkey Kong. Decathlon, ecc. 
Costo medio di un gioco L. 
4.000 Disposto anche a scam¬ 
bi; a chiunque ne faccia richie¬ 
sta invio lista e prezzi. Assicuro 
risposta. Costantini Massimo, 
Via Fausta 136/A - Ca’ Savio 
(VE). Tel. 041/658881. 

• VENDO programmi per 
CBM 64 esclusivamente su di¬ 
schi. Gestionali, copiatori, vi¬ 


deo giochi. Telefonare per ac¬ 
cordi o scrivere, (laudino Gian¬ 
ni, Via Graglia 18 - Torino. Tel. 
011 / 352830 . 

• VENDO ZX 48K Spectrum 
10 mesi di vita completo di ca¬ 
vetti. trasformatore + cassetta 
dimostrativa + cassetta gioco 
Centipede. Il tutto a sole L. 
350.000. Zito Mario, Via Mon¬ 
teverde 6 - 15100 Alessandria. 

• VENDO macchina per scrive¬ 
re elettrica Olivetti 36C. prati¬ 
camente nuova con valigetta 
custodia L. 350.000. Giubellini 
Davide, Via Pace 25 - Desenza- 
no del Garda (BS). Tel. 
020/9143610 (dopo le 13.00). 

• CLUB cerca possessori di 
Quantum Leap Sinclair per 
scambio idee e programmi Ri¬ 
sposta rapida e sicura, acclude¬ 
re francobollo. Ghezzi Rober¬ 
to, Via Volontari del sangue 
202 - 20099 Sesto San Giovanni 
(MI). 

•TOTOCALCIO vendo pro¬ 
gramma elaborazione statistica 
e riduzione sistema integrale al 
prezzo di L. 20.000 comprese 
spese di spedizione. Lenzi Dan¬ 
te, Via Lombardia 9 - Grosseto 

• VENDO Spectrum 48K com¬ 
pleto a L. 380.000. Paleari 
Claudio, Via G. Leopardi 6/B - 
Arese (MI) Tel. 02/9381193. 

• VENDO computer 1199/4A 
+ alimentatore 4 cavetto regi¬ 
stratore 4 manuale + program¬ 
ma sviluppo 13 triple + cassetta 
giochim I 300.000. Zacco Ma¬ 
rio, Via Chimera 52 - Palermo. 
Tel. 534531. 

• VENDO ZX 81. 32K di me¬ 
moria 4 alimentatore 1.2A + 
cavi -1- manuale -I- 3 libri + pia¬ 
no d’appoggio con cavi nascosti 
-1- molti listati II tutto a L. 
230.000 trattabili. Viada Massi¬ 
mo. Via Partigiani 73 - Asti 
Tel. 216971. 

• VENDO mixer video a L. 
1.100.000; generatore di mar¬ 
chio a L. 605.000; gen, di orario 
a L. 405.000; gen. di barre a L. 
385.000; gen. di sincronismi a 
L. 980.000; A F. per FM e TV a 
prezzi interessanti. Caruso 
Maurizio. Via Catania 1 -Giar- 
rc (CT). lei. 095/932723. 

• APPLE IL Ile. Ile tutto il soft¬ 
ware sul mercato comprese le 
ultime novità. Prezzi di assoluta 
convenienza. Esempio: lin¬ 
guaggio Pascal a L. 60.000 (li¬ 
stino oltre il mezzo milione!!!). 
Inoltre sconti e regali per acqui¬ 
sti oltre le 250.000. Fiore Fio¬ 
renzo, Via S. Giorgio 2 - Geno¬ 
va. Tel. 010/281860. 

• VENDO per C64 cassette (o 
dischetti) contenenti magnifico 
sotfar (Basket. Calcio Spetta¬ 
colo. Summer Games) per ulte¬ 


riori informazioni scrivete. 
Vendo anche esp. 8K Rant per 
Vie 20. Vellani Daniele, Via 
Roma - Castellarano (RE) 

• VENDO per CBM 64 + flop¬ 
py disk magnifico programma 
capace di formattare un disco in 
11 secondi, creare e riparare er¬ 
rori. copiare in 1.50 minuti a L 
50.000 Basso Marco, Via 24 
maggio 8-13019 Vantilo S. Tel. 
0163/52864. 

• VENDO per CBM64: Aztec, 
Buck Rogers. Calcio 3D. For- 
bidden Forest. Fort Apocalis¬ 
se. Labirinti 3D, Pit Stop. Polc 
Position. Scacchi. Suicide Stri- 
ke, il tutto a L. 40.000 compre¬ 
se spese postali Inviare l'im¬ 
porto su vaglia postale. Boggi 
Paolo. Via Spalato 84 - 62100 
Macerata, lei. 0733/30405. 

• VENDO o scambio giochi per 
Commodore 64come: DonKey 
Kong. Piti Fall II. Falcon Pa- 
trol, Hodman, Basket, ecc. Te¬ 
lefonare o scrivere. Balelli Gio¬ 
vanni, Via Mazzini 111 - Forlì. 
Tel. 20252. 

• CAUSA spesa eccessiva ven¬ 
do: cassette originali Soft, Li¬ 
breria Software, Program. 
Load N Run. e altre. Corso 
Iput aggiornato 40% del prez¬ 
zo, libro -t- cassetta Program¬ 
mare... Spectrum. ad acquiren¬ 
ti regalo rivista + listato zona 
PA/TP. Burgio Francesco, Via 
Notarbartolo 49 - Palermo. Tel 
091/266096. 

• PER POCHE LIRE offro fa¬ 
volosi programmi originali 
americani per 64 dalle L. 5.000 
in poi fra cui Blue Max, Soccer. 
Zaxxon Magic Desk, Simon’s 
Basic, Easy Script, Music Edi¬ 
tor, ecc. Caramani Massimo 
Umberto, Viale Umbria 83 - 
20135 Milano. 

• ECCEZIONALE Vendo per 
il CBM 64 + Floppy 1541 fanta¬ 
stico pacchetto contenente 
scheda con CPU Z80 che au¬ 
menta la velocità di elaborazio¬ 
ne e la Ram utente a 48K, con 
dischetto sistema operativo 
CP M, con manuale a L 
350.000. Basso Marco. Via 
XXIV Maggio 8 -13019 Varallo 
S. Tel 0163/52864. 

• ATTENZIONE!!! Cerco pro¬ 
grammatori, utenti, appassio¬ 
nali computer in prov.: PV. 
NO, MI. VC Non voglio crea¬ 
re club ma solo cerchia di amici 
per scambi di informazioni, 
consigli e per un miglior uso di 
computer Sinclair. Commodo¬ 
re. 1199, ecc Risponderò a tut¬ 
ti I vantaggi sono infiniti, pri¬ 
mo dei quali un nuovo amico. 
Boccafogli Massimo, Via Tre 
Moroni 21 - 27029 Vigevano 
(PV). 
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Vendo, Compro, Cerco, Scambio... 


• ATTENZIONE il Team 
CBM64 vende, scambia e cerca 
soci Per informazioni telefona¬ 
re o scrivere a Brunetti Luigi. 
Via Di Vittorio 7 - 29100 Pia¬ 
cenza. Tel. 60408. 

• VENDO console video game 
Atari in ottime condizioni dota¬ 
ta di 2 joystick, 2 paddle, 1 ali¬ 
mentatore rete, collegamento 
TV e 4 giochi (Pole Position. 
Combat, Dogeem, Calcio) cor¬ 
redati da istruzioni a L. 280.000 
trattabili. Battaglini Simone, 
Via Colleverde 33/A - Ancona. 
Tel. 071/897208 (dalle 14.00 al¬ 
le 16.00). 

• SVENDO cassette videogio- 
chi Atan a metà prezzo d'acqui¬ 
sto. Night Driver. Maze Craze, 
Slot Racers. Enzo. Tel. 
0464/516277. 

• VENDO a L. 1.500 l’uno + 
cassetta oltre 300 dei più famosi 
videogiochi per Commodore 64. 
Tratta solo con Salerno e zone. 
De Martino Emilio, Via Lucan- 
tonio Porzio 1/A - 85100 Saler¬ 
no. Tel. 089/391254 (dalle 14.00 
alle 16.00) 

• VENDO TI99/4A + modula¬ 
tore video sistema Pai + 6 cas¬ 
sette programmi software. Il 
tutto a sole L. 210.000. Alia 
Oreste, Via Candco 8 - 00154 
Roma 

• VENDO console Intcllevision 
più 13 cartucce L. 500.000 trat¬ 
tabili Violam Alessandro, Via 
D Secchia 2 - Bologna. Tel. 
554317 (ore serali 20.00-22.00). 

• VENDO NE Z80. 58KRam. 
2K Eprom. Doppio sistema 
operativo: Dos grafico + CP M 
2.25, scheda grafica, 1 driver 
Basf, monitor F. verdi, tastiera 
+ pad numerico, 10 dischi soft¬ 
ware + alcuni chip di riserva 
(Z80 CPU, FDC 1771. CRTC 
6545 Al ecc.) tutto a L. 

1.500.000. Nicolussi Tullio, Via 
Urbinelli 6 - Caldonazzo (TN). 
Tel 0461/723279. 

• CAMBIO /comprovendo 
qualsiasi tipo di software su cas¬ 
setta per CBM64 richiedere o 
inviare lista Rispondo a tutti. 
Annuncio sempre valido. Deire 
Giacomo, Via A B. Sabin 33 - 
70042 Mola di Bari (BA) 

• VENDO reg. Teac Tascam 
244, 4 canali ind. DBX equal 
parametrico, mixer perfetto, 30 
ore di funzionamento. Prezzo 
listino L. 2.200.000 vedi Alta 
Fedeltà gennaio ’85. Offro L. 
2.000.000. Imballo originale. 
Marossa Maurizio. Via Burlan¬ 
do 22C 4 - 16137 Genova. Tel. 
010/889926 (ore pasti) 

• VENDO, compio giochi 
CBM64 ultime novità. Summer 
games-volo, Mosca-Pit Stop II - 
Bruce Lee + impossible mis- 


sion - Strip Poker ecc, a L. 
3.000cadauno. Micheli Gianlu¬ 
ca, Via T Bernetti 21 - Roma 
Tel. 06/6288294. 

• VENDO CB 40 Ch digitali, 
4W mattoncino con antenna a 
calamita, alimentazione 12V 
ancora nuovo, imballato L. 
150.000. Filiaci Albano, Via 
Borgo Miriam 61 - Offida (AP). 

• DISPONGO di software ap¬ 
plicativo per Pc-Ibm: sistemi 
operativi (Pc-Dos 1 e 2) Easy- 
writer (word processor); Basic 
compiler (compilatore Basic) 
Vendo a prezzi sbalorditivi. Te¬ 
lefonare sabato-domenica allo 
099/26858 chiedendo di Anto¬ 
nello. Maraglino Antonio, Via 
Acclavio 74 - 74100 Taranto. 

• HO UN CBM64. Desidero 
contattare gente esperta per 
scambio idee c programmi. 
Vorrei creare un club. Scrivete 
a Malagrinò Dante, Viale Luigi 
Einaudi 59 2/D - 70125 Bari. 
Tel. 335499. 

• VENDO o scambio program¬ 
mi per Spectrum. Scrivere o te¬ 
lefonare. Martano Fabrizio, 
Via Don L. Sturzo 7 - 58100 
Grosseto. Tel. 0564/492806 
(ore pasti). 

• VENDO programmi gestio¬ 
nali, utility e giochi a prezzi 
concorrenziali, oltre 500 pro¬ 
grammi. Scrivere o telefonare. 
Faccio anche scambi. Mitterho- 
fer Fabio, Via Benedittini 2 - S. 
Candido. Tel. 0474/73219. 

• VENDO programmi gestio¬ 
nali e d'utilità per M 20 Olivet¬ 
ti. A richiesta realizzo su ordi¬ 
ne. Max serietà e accuratezza. 
Moroni Fabrizio, Via Lucca 17 
- Roma. Tel 06/4249894. 

• SCAMBIO programmi per il 
CBM64. Cerco software per 
light pen e di comunicazione 
con altri computer. Maugen 
Roberto, Via V. Brancati 6 - 
95128 Catania. 

• VENDO Vie 20 + I6K + car¬ 
tuccia scacchi + cassette gioco 
(Pharaon. Hektik 16K) + 100 
programmi circa 4- libri sul Vie 
e riviste. Tutto a L. 300.000. 
Erba Marco, Via Togliatti 39 - 
22066 Mariano Comense (CO). 

• VENDO Sharp MZ-731 con 
registratore e stampante incor¬ 
porati (stampante 4 colori) + 
cassette di 11 giochi + varie ri¬ 
viste specifiche + manuale in 
italiano a sole L. 650.000 
(FMZ-731 ha solo 3 mesi!). Vil¬ 
lanova Enrico, Via Botteniga 
61 - 31 KM) Treviso. 

• VENDO computer Vie 20 do¬ 
tato di espansione 16KRam e di 
registratore dedicato. In mede¬ 
simo blocco vendo; 7 cassette 
“Program”, 3 cassette “Arcade 
game", 3 cassette “Idea compu¬ 


ter”, 3 cassette “Load’n’run" e 
3 cassette “Play on tape”. Il tut¬ 
to a L. 450.000. Vesco Gaetano, 
Casella Postale 34 - 92016 
Ribera. 

• VENDIAMO programmi per 
CBM64, su nastro o disco, di 
utilità varia (es. : Simon’s Basic, 
Magic Desk ecc.) e videogames 
(Manie Miner, Pole Position, 
Summer Games ecc.) Per in¬ 
formazioni scrivere o telefona¬ 
re. Tenti & Scevoli. Via D 
Chiesa 83/B - 58030 Selvena 
(GR) Tel. 0564/960700 (ore 
12.00-14.00). 

• VENDO programma eccezio¬ 
nale di simulazione di volo in 
tempo reale per TI99/A4 a L 
8.000 Possiede ben 10 stru¬ 
menti. Tomaselli Aldo, Via 
Roma 18 - Strigno (TN). 

• VENDO o cambio con Plotter 
Commodore 1520, programmi 
per CBM64 su disco; 500 titoli; 
dischi a doppia faccia e doppia 
densità registrati da ambo i lati. 
Vendo frequenzimetro e capa¬ 
cimetro digitale della Bremi o 
cambio con plotter 1520 Com¬ 
modore. Tempesta Claudio, 
Via Bergamo 4/7 - 33100 Udi¬ 
ne. Tel. 0432/403542. 

• VENDO calcolatrice PB l(M) 
Casio programmabile in Basic 
con tutti i manuali. L 70.000. 
Chiamare Karim al 3275660. 
Sako Karim. Via Lazzaro Spal¬ 
lanzani 4/6 - Roma 

• VENDO in blocco TI99/4A; 
registratore per computer, joy¬ 
stick, 3 moduli SSS, 7 cassette 
con programmi vari e 3 libri sul¬ 
la programmazione a L. 
290.000. Stefani Andrea. Via 
Elba 9 - Monterotondo (Ro¬ 
ma). Tel. 06 9005962 (ore 
19.00-21.00) 

• CAMBIO/vendo per CBM64 
moltissimo software. Inviare o 
richiedere lista. Sartori Vitto¬ 
rio. Via Saibanti 10 - 38068 Ro¬ 
vereto (TN). Tel. 0464/35358. 

• PER COMMODORE 64 
scambio, vendo giochi e utility, 
dispongo di biblioteca software 
con oltre 2.000 titoli. Arrivi set¬ 
timanali ultime novità. Men- 
zietti Gian Luigi, Via L Bian¬ 
chi 46 - 63039 S. Benedetto del 
T. (AP). Tel. 0735/82768 (ore 
pasti e primo pomeriggio). 

• SCAMBIO programmi C 64 
di utilità e didattici. Inviare cas¬ 
setta con alcuni programmi. Ri 
spedisco cassette con altri pro¬ 
grammi Massima serietà. Lizio 
Giuseppe. Via Contrada Chiu¬ 
sa - Taormina. 

• VENDO CBM64 +■ registra¬ 
tore + joystick + disk drive + 
tavola grafica, vari dischi a L. 
950.000. Zone Emilia Roma¬ 
gna, Milano, Bergamo. Grazio¬ 


so Andrea. Via V. Rustichelli 6 
- 41011 Campogalliano (MO). 
Telefonare dalle 19.00 alle 
22 . 00 . 

• VENDO Spectrum 48 Kb + 
microdrive + interfaccia uno + 
monitor fv -I- registratore + 120 
programmi + int. prog joystick 
+ joystick + 5 libri specifici. 
Vendo anche separatamente. 
Contattare. Gasperi Roberto, 
Via Zanardelli G. 9 - 61100 Pe¬ 
saro. 

• VENDO programmi per 
Commodore 64 a basso prezzo. 
Gamba Dario, Via Guido Reni 
96/12 - Torino. Tel. 011/ 
3090175 (dopo le 20.00). 

• VENDO cassetta con circa ??? 
giochi tra i quali Atic Atac, Ma¬ 
nie ???, Zip Zap, Lunar ??et- 
man, ecc) Il tutto a L. 30.000. 
Telefonare allo 041/962294 (so¬ 
lo ore pasti) per ZX Spectrum 
48K. Galluzzi Giancarlo, Via 
Cappuccina 49/B - Mestre 
(VE). 

• VENDO ZX81 a 16K Ram, 
manuale, cavetti, alimentatore, 
libro 66 programmi ZX81 + ta¬ 
stiera professionale + 13 casset¬ 
te di giochi tra i quali: Flight- 
Simulation. Mazogs Dictator, 
scacchi. Asteroidi. Star-Trek, 
Tirannosauro, Super Glopper, 
ecc. un anno di vita, tutto a sole 
L. 219.000. Garavaglia Walter, 
Via Moltrasio 8 - Milano. Tel 
02/4593977. 

• CERCO fotocamera Praktica 
VLC/2, ingranditore Krokus 66 
mal. color, Componon/Koda- 
gon 50-80, diaproiettore autofo¬ 
cus, programmi vari per Vie 20 
espanso, ottiche Nikon. Cam¬ 
bio: cassetta Tombola ZX Spel¬ 
inoli con cass. tomb. Vie, mate¬ 
riale vario mio possesso con al¬ 
tro mio gradimento. Giuffrida 
Gaetano, Via L. da Vinci 6 - 
95010 S. Venerina (UT). 

• QUANTUM LEAP cerco pos¬ 
sessori presenti e futuri per 
scambi idee e software e per 
fondare un QL-user-club, Inol¬ 
tre svendo software e manuali 
originali per Spectrum Ghezzi 
Roberto, Via Volontari del san¬ 
gue 202 - 20099 Sesto S. Gio¬ 
vanni (MI). 

• VENDO computer Vie 20 
completo di trasformatore. Ma¬ 
nuale e due cartucce (Omega 
Race. Male Attak) + 20 listati 
tutto per L 100.000. Vendo an¬ 
che separatamente. Fabiani 
Giuseppe, Via Libertà 218/A - 
Portici (NA). Tel. 081/7751965 
(ore pasti e mattino). 

• VENDO Spectrum 48K 1 an¬ 
no di vita in ottime condizioni + 

4 libri (manuale, 77 progr. ling 
macc. e assembler per princi¬ 
pianti, programmazione dello 
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Spectrum) + 10 cassette + 40 
games + programma pirata a 
solo L. 500.000. Pirola Sergio, 
Via G. Mazzini 22 - Carugate 
(MI). Tel. 02/9253001 (pome¬ 
riggio/sera). 

• VENDO cassette con ghioci di 
ogni genere per C64. Per met¬ 
tersi d’accordo telefonare allo 
030/2712361. Polenti Marco. 
Via Brede 10 ( Bovezzo (BS) 

• VENDO ZX Spectrum 16 K 
corredato di manuale in italiano 
+ numerosi programmi a L. 
300.000 trattabili. Cerco Com¬ 
modore 64 occasione. Pili Mau¬ 
ro, Via XX Settembre 14 - Sa¬ 
lerno. Tel. 089/354497 (ore 
pasti). 

• VENDO ZX 81 con espansio¬ 
ne 16K + alimentatore + libro 
istruzioni inglese -t- cassetta con 
100 programmi + cavetti vari + 
libro con 84 programmi (prezzo 
stracciato) L. 170.000. Picco 
Andrea, Via Biazzi 2 - Cremo¬ 
na. Tel. 0372/32717. 

• VENDO Pocket computer 
Casio PB 1(M) + interfaccia regi¬ 
stratore + manuale + listati di 
vari programmi, prezzo da con¬ 
cordare. Telefonare ore pasti al¬ 
lo 079/274133 e chiedere di Ste¬ 
fano. Pintus Stefano, Via Nico- 
lodi 9 - Sassari. 

• FORNISCO schemi elettrici 
di qualsiasi CB, radio, autora¬ 
dio, TV color o B/N ecc. Inoltre 
valvole radio/TV anche introva¬ 
bili e pezzi di ricambio in genere 
a prezzi onesti Papale Antimo, 
Piazza I Ottobre 4 - 81055 S. 
Maria C.V. (CE). Tel 0823/ 
811468 (dopo le 13.00). 

• VENDO kit (autoassiemato) 
per costruire una mini-roulette 
elettronica, a 10 numeri, con ef¬ 
fetto rallentamento che simula 
in modo più reale il comporta¬ 
mento delle roulette classiche 
Il kit + C.S. a L. 17.000 + L. 
5.000 per eventuale contenitore 
già forato e serigrafato. Parravi- 
cini Alberto, Via Monte Grap¬ 
pa 23 -Seregno (MI) Tel. 0362/ 
237130. 

• PROGRAMMI per Commo¬ 
dore 64 scambio i migliori gio¬ 
chi. avventure, Utilities e pro¬ 
grammi educativi inglesi e ame¬ 
ricani. tutti su cassetta. Purvis 
David, C P 36 - 25100 Brescia. 

• VENDO Vie 20 Commodore 
con o senza espansione 3K-8K- 
16K con o senza turbo-tape e 
registratore e regalo 300 video- 
giochi Preatoni Angelo. Via 
Xurelia 198 - Cenale (SV). Tel. 
0182/90346. 

• VENDO per C64: cartuccia 
gioco “Le Mans” e turbo tape; 
inoltre vendo o scambio video¬ 
giochi o programmi di utilità 
(Popaye, Pole Position, Pac 


Man, Nibly, Mundial Soccer, 
Basket, biblioteca, agenda, 
conto corrente...). Panza Luigi, 
Via Alfonso Menichini 5 - 88100 
Catanzaro. 'Pel. 0961/42745. 

• Offresi ottimo materiale a 
prezzo speciale: altoparlante 
per chitarra 0 cm 33, 35 watt; 
10 anni di vita ma ancora otti¬ 
mo. con cassa autocostruita (cm 
38 x 50 x 18), più materiale vario 
(transistor, valvole, ecc.) tutto 
a L. 60.000. Cassa acustica (cm 
49 x 70 x 38) con altoparlante 0 
cm 25, 30 watt, per strumenti, a 
K. 80.000. Piccolo Renato, Via 
N. Fabrizi 215 - Pescara. 

• VENDO primi tre volumi del¬ 
l'enciclopedia “Il mio compu¬ 
ter”, rilegata a L. 90.000 tratta¬ 
bili (valore 120.000). Speranza 
Enrico, Via Zara 5/1B - Geno¬ 
va. Tel. 010/361486 (ore pasti). 

• VENDO cassette programmi 
per Vie 20; 15 giochi a L. 10.000; 
per ricevere la lista dei giochi 
disponibili, o per ulteriori infor¬ 
mazioni scrivere a Salvi Pierlui¬ 
gi, Via Tripoli 65 - 50053 Empoli 
(FI). 

• VENDO home computer Phi¬ 
lips 7400+, con modulo basic 
7420 a L. 200.000. Telefonare 
per accordi allo 030/957181 (ore 
pasti). Savani Maurizio, Via 
Cappellazzi 11 - Remedcllo So¬ 
pra (BS). 

• VENDO piastra Pioneer CI - 
506 in ottime condizioni a L 
300.000. Vendo inoltre Spec¬ 
trum 48K. + trasformatore + 
cavetti + manuale basic italiano 
e inglese + circa 450 programmi 
a L. 650.000 trattabili. Cedo 
inoltre a L. 200.000 trattabili 
Vie 20 nuovo mai usato coni 
prensivo di interfaccia per qual 
siasi registratore. L’annuncio e 
valido per le zone di Venezia 
Padova, Vicenza, Treviso c din 
torni Per informazioni. Simio- 
nalo Paolo, Via Capitamo 52/Ci 

- 30038 Spinea (VE). Tel. 041 
990531 

• VENDO 1 trasformatore (in 
220 V out: 800 VIA, 6,3 V 8A. 
12 V 0,3A peso kg 15) L 
70.000; 3 valvole EL 519 + 2 
EL34 (tutte nuove) L. 50.000 
Samori Gianmaria. Via Storta I 

- 48010 Casola Valscnio (RA). 

• VENDO (causa termine atti 
vità) 100 riviste di elettronica la 
maggior parte nuove In più un 
amplificatore da 40 W tutto a I 
150,000. Spedizione a carico del 
destinatario. Accordo sullo spe¬ 
dire riviste e somma relativa. 
Somma Alfonso, Via Sodano - 
84087 Sarno (SA) 

• VENDO Vie 20 + espansione 
8K Ram + 3 cartridge + 11 cas¬ 
sette con 66 videogiochi + 2 cas¬ 
sette con 100 programmi + in¬ 


troduzione al basic 1 +2 con cas¬ 
sette + riviste con listati. Vendo 
anche separatamente. Il tutto a 
L. 400.000. Trattabilissime!!! 
Serafini Paolo, Via G B Caudi¬ 
no 21 - 00167 Roma. Tel 06/ 
6376370. 

• VENDO per Spectrum 16K 
cassetta con minimo 15 giochi a 
L. 800 a gioco Richiedere lista 
o telefonare. Sciuto Nino, Via 
G. Leopardi 74-95127 Catania. 
Tel. 095/386890 (ore pasti). 

• CERCO turbotape per Vie 20 
prezzo discutibile possibilmen¬ 
te su cassetta Suardi Fulvio, 
Via Sacconi 7 - Milano. Tel. 02/ 
561803. 

• VENDO Commodore Vie 20 
+ registratore CN2E + 2 car¬ 
tridge + 55 giochi a L. 300.000. 
Cerco ZX81 a massimo di L. 
50.000, solo Ferrara. Soriani 
Sebastiano, Via Del Lavoro - 
Ferrara. 

• VENDO ZX Spectrum ottime 
condizioni, meno di 7 mesi di 
vita, completo di alimentatore e 
cavetti, manuale in italiano con 
più di 120 programmi tra cui il 
calcio, tennis, le olimpiadi ed 
altri ancora più belli. Prezzo da 
concordare. Ricciardi Luca, 
Via Teodorico 3 - Milano. Tel 


02/315657 (dalle 19.00 alle 
20.(X)). 

• OCCASIONISSIMA vendo 
segreteria telefonica a micro 
processori senza richiamo ester¬ 
no L. 197.000 con richiamo 
esterno L. 285.000 garantita 
dalla ditta Seli. Per informazio¬ 
ni telefonare allo 0543/31416 
ore serali. Pisciella Paolo, Via 
Isonzo 66 - 47100 Forlì. 

• CERCASI riviste RadioE- 
LETTRONICA & Computer 
ed Applicando periodo 1983- 
1984. Vendesi inoltre Encico- 
pedia di Elettronica & Informa¬ 
tica della Jackson completa da 
rilegare. Per accordi scrivere al¬ 
legando se possibile francobollo 
per risposta. Pietrolonardo 
Giovanni. Via della Massimilla 
25 - 00166 Roma. 

• VENDO Vie 20 + registratore 
C2N + cartridge + 100 pro¬ 
grammi (Abductor, Grid Run- 
ncr, Milliped, Scramble, Grafi¬ 
ca...) il tutto nuovissimo con 
imballi originali a L. 250.(X)0 
trattabili Teloni Marco, Via 
Isidoro del Lungo 38 - Roma. 
Tel. 06/8274597 (ore pomeri¬ 
diane). 

• ECCEZIONALE causa pas¬ 
saggio a sistema supcriore ven- 


LE INDUSTRIE ANGLO AMERICANE IN ITALIA 

RICONOSCIMENTO 
LEGALE IN ITALIA 

in base alla leggo 
n 15)40 Gaz/ Ufi n 49 
del 20 ? 1963 


un posto da INGEGNERE anche per Voi 
1 .usi POI ITECNIGi INGLESI Vi permetteranno di studiare a casa 
Vostra c cii i [inseguire tramite esami. Diplomi 


INGEGNERE regolarmente iscuto ne l Ordine Britannico 

una CARRIERA splendida 

ingegneria CIVILE - ingegneria MECCANICA 

Lia TITOLO ambito 

ingegneria ELETTROTECNICA ingegneria INDUSTRIALE 

un FUTURO ricco di soddisfazioni 

ingegneria RADIOTECNICA ingegneria ELETTRONICA 


Per informazioni e consigli senza impegno scriveteci oggi stesso 

BRITISH INST. OF ENGINEERING TECHN. 

Italian Division 10125 Torino Via Giuria 4 T 

Tel OH 655 375 (ore9 12 1 
Sede Cen'ra le Londra • Delegazioni in lutto il mondo 
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do in blocco 50 tra ì migliori 
giochi per Vie 20 inesp. a sole I 
15.000 (con trassegno). Le spese 
di spedizione sono a carico 
Tassone Rocco, Via Marconi 97 
- 89044 Locri (R.C.). 

• VENDIAMO su ordinazione, 
programmi su cassetta per 
CBM 64 tipo: Krazy-Kong, Pac 
Man. Decathlon. Pittali II ecc 
Minimo 3 giochi, sconti per ac¬ 
quisti in blocco, cassetta com¬ 
presa, scrivere unendo franco¬ 
bollo per lista. SeC Associa- 
tion. Via Laghi 56/2 - Livcrano 
(BO) 

• VENDO Apple compatibile 
(6502 e Z80) con 64K disk con¬ 
troller, 1 drive, Epron 2731, 
joystick, monitor fosfori verdi, 
tastiera simile Ibm separata 
software (Apple Works. Mouse 
Paint, Koala Pad). Ancora 10 
mesi garanzia. Richieste L. 
2.500.000 trattabili lucci Pa¬ 
squale, Via Stellone 8 - Torino. 
Tel. 011/672074. 

• RICERCATO... MMDI mi- 
crocompuler didattico, anche 
se m kit. Turche! Gino, Via 
Troset 32 - Cordenons (PN). 
Tel. 0434/50630. 

• VENDO computer robot a L. 
55.000. Nuovo usato pochissi¬ 


mo, va avanti, indietro, destra e 
sinistra completamente prò 
grammabile da tastiera. Usuelli 
Luciano, Via Isonzo 31 - Vare¬ 
se. Tel 0332/242596. 

• COMPRO-scambio, vendo 
istruzioni e programmi per 
Commodore 64 e C.I6. Inviate¬ 
mi vostra lista e proposte. An¬ 
nuncio sempre valido. Cglietti 
Gino, Via Strambio C.P. 3 - 
27011 BeIgioio.su (PV). 

• VENDO consolle Intellivision 
più una cassetta gioco omaggio 
a L. 250.000 (nuovissimo). Za- 
nuso Fulvio. Via G. di Vittorio 
112 - Valleggia (SV). Tel. 019/ 
882508 (ore pasti). 

• VENDO Vie 20 + interfaccia 
registratore normale + 2 casset¬ 
te con giochi + 2 libri sul Vie + 
circa 60 listati di programmi di 
giochi utilità il tutto a L. 
200.000. Villapiano Luca, Via 
Corridom 18 - Cernusco sul Na¬ 
viglio (MI). Tel. 02/9245817. 

• VENDO Intellevision + 4 car¬ 
tucce al. 260.000 o cambio con 
ZX Spectrum Vizio Mauro. 
Via Roma 59 - Murene (CN). 
Tel. 0172/342246 (dalle 19.30 in 
poi). 

• VENDO contagiri digitale per 
auto: possiede 4 display, è di 


dimensioni ridottissime, in con¬ 
tenitore nero opaco. L. 100.000 
non trattabili Vietti Alessan¬ 
dro, Via Tanzi 6 - 28050 Bèe 
(NO). Tel 0323/56113 (ore 
pasti). 

• VENDO Vie 20 + registratore 
originale C2N + joystick + 2 
cartridges Commodore + ca¬ 
vetti + cassetta con oltre 40 gio¬ 
chi e utilycs, buone condizioni 
Imballo originale vendo a L, 
350.000 trattabili. Vardaro 
Alessandro, Via Delle Scuole 2 
- Casacalcnda (CB). 

• VENDO 40 riviste “Nuova 
Elettronica" più numerosi altri 
libri, manuali e riviste di elet¬ 
tronica. Vettorato Marco, Via 
Pomponazzi 3/B - Padova, l ei 
049/686907. 

• VENDO Vie 20 + I manuale 
in italiano + alcuni programmi 
-I- I cartuccia gioco (Mole At- 
tak) + 5 cassette per registrato¬ 
re, al ridicolo prezzo di L. 
130.000. Albo Davide, Viale 
Orazio Fiacco 49/B - Bari. Tel. 
5163541. 

• VENDO cassetta con 9 pro¬ 
grammi: Pole Position, Zax- 
xon, Dig Dug, Pitfall II, Po- 
peye, Sauccr Attack, Mundial 
Soccer. Baseball e il Turbotape. 
L 20.000 per Commodore 64. 
Aldieri Massimiliano, Via De 
Roberto 5 - Milano. Tel. 02/ 
3574257. 

• ATTENZIONE!!! Ad Augu¬ 
sta è nato un club fantastico per 
utenti di tutti i computer. Il suo 
nome è : “Home & Personal 
Computer Club”. Potete avere 
tutto il software che desiderate 
con lo sconto del 50%. Ma con 
l’assoluta autenticità dei pro¬ 
grammi! Non vi sembra fanta¬ 
stico? Scriveteci per informarvi. 
Antonio Michele, Via G. Maz¬ 
zini 1 - 96011 Augusta (SR). 

• CAUSA bisogno di soldi, ven¬ 
do Vie 20 L. 98.000; cartuccia 
Atarisoft Robotron L. 30.000; 4 
cartucce Gradar Rat Race, 
Road Race, Avcnger, Sargon II 
Checs) L. 60.000. Il tutto con 3 
mesi di vita e in perfette condi¬ 
zioni. Abratc Marco, Via Pio 
Foà 90 - Torino. Tel. 011/ 
631267. 

• VENDO schemari TV colore 
con note di servizio voi. II c III 
casa editrice II Rostro Milano 
praticamente nuovi, al prezzo 
d'occazione di L. 40.000 cad. 
Amato Giulio, Via G. Verdi 21 

13100 Vercelli. Tel. 0161/ 
55706 (dopo le ore 18.00). 

• ABRONICA software pro¬ 
gramma di concimazione + 
programma di ricerca della for¬ 
mula di concimazione. Antoni¬ 
ni Ludovico, Via Curici 18 - 
30034 Mira (VE). 


• VENDO ZX Spectrum 48K: 
alimentatore, manuale in italia¬ 
no + 100 giochi e utility al solo 
prezzo di L. 360.000. Annibali 
Giuseppe, Via Campania 96 - S. 
Benedetto del Tr. (A P) Tel 
0735/82116. 

• VENDO sega SC 3000 16K + 
5 cassette gioco e cassetta musi¬ 
ca e joystick L. 600.000 (note¬ 
voli le capacità grafiche). Usato 
5 mesi. Causa vendita: passag¬ 
gio a sistema superiore. Zullini 
Enrico, Via del Labaro 22 - 
Roma. 

• VENDO ZX Spectrum 48K + 
interfaccia 2 4- 100 programmi 
scelti tra i migliori (imballi ori¬ 
ginali) a L. 400.000. Vendo 
inoltre ZX interfaccia 1 + mi¬ 
crodrive a L. 200.000 (tutto co¬ 
me nuovo). Martinelli Vincen¬ 
zo, Trav. IV N.20 Buffalora - 
25010 Brescia. Tel. 030/364457 
(ore serali). 

• VENDO ZX Spectrum 48 K 
con 1 interfaccia joystick, 1 joy¬ 
stick box sonoro e uno stabiliz¬ 
zatore e un sacco di programmi 
a L. 450.000 solo un anno di 
vita. Marchiello Elio, Via S. 
Donato - 55100 Lucca. 

• COMMODORE Computer 
Club Perugia cerca soci in tutta 
Italia Iscrizione L 3.000 men¬ 
sili Favolose iniziative: video¬ 
gare mensili, sconti sui pro¬ 
grammi per CBM 64. Ultime 
novità Pit stop 2, Ghostbuster, 
Rocky. Merlini Simone, Via 
Bagliom 24 - 06100 Perugia 
Tel. 075/61580. 

• NOVITÀ ora il tuo computer 
può anche sviluppare le espres¬ 
sioni algebriche. Costo del pro¬ 
gramma con manuale: per 
CBM 64 L. 33.000; per Vie 20 + 
espansione L. 26.000; per Spec 
trum 48K L 27.000. Prenotate¬ 
vi! Montalto Aldo, Via A. Zupi 

19 - 87100 Cosenza. 

• SCAMBIO software per 
Spectrum circa 400 programmi 
sia games sia utility. Chiedere o 
spedire lista annuncio sempre 
valido. Mele Teresa, Via Mat¬ 
teotti 76 - 84036 Sala Consilina 
(SA). Tel 0975/21041 (ore 
22.00L 

• VENDO per Amslrad nuovis¬ 
simi programmi appena arrivati 
dall'Inghilterra Maraucci Pao¬ 
lo, ViaT. Schiva 11 - 18100 Im¬ 
peria. Tel 24176. 

• VENDO corso completo Pan¬ 
nelli Solari 320.000 Per CBM 
64 vendo 300 programmi utility 
500.000 non originali. Oppure 

20 programmi L. 26.000ognuno 
su cassette, su disco L. 24.000. 
Specificare. Spedizione con¬ 
trassegno Manfroni Roberto, 
Via B Buozzi 4 - 00049 Velletri 
(Roma). Tel. 06/9636898. 
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ZX Spectrum 
Expansion System 

L’alternativa della Sinclair ai floppy disc 

Lo ZX Spectrum Expansion System contiene: 

■ Uno ZX Microdrìve - Che amplia la possibilità dello ZX Spectrum in quei settori, 
come quelli della didattica e delle piccole applicazioni gestionali, dove è necessaria 
una veloce ricerca delle informazioni memorizzate su un supporto magnetico. 

■ Una ZX Interface 1 - Indispensabile per il collegamento dello ZX Microdrive 
Incorpora una interfaccia RS 232 e un sistema di collegamento in rete locale 

■ Quattro cartucce Microdrive comprendenti un programma di: 

• Word processor «Tasword Secondo» 

• Masterfile filing System 

• Inventore di giochi 

• Le formiche giganti 

■ Un programma dimostrativo del Microdrive 

■ Documentazione per il collegamento, il funzionamento e altre descrizioni tecniche. 

■ Cavi di collegamento allo ZX NET che può collegare 
fino a 64 computer ZX Spectrum o QL 
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